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Amateur or Professional? 

Thanks very much indeed to all those who have contributed material for Archive 
magazine. As I have said before, the standard of the magazine depends very much 
on these contributors. But as Archive expands (we now have over 1,500 
subscribers) we have had to think whether it is time to start pay ing contributors for 
their articles, as other professional magazines do. 

Our feeling is that the whole atmosphere of this magazine is based on the free flow 
of information - everyone trying to help others by giving out as much information 
as possible instead of trying to wilhold it in order to make money. 

In one sense. Archive is a ‘professional 1 undertaking as we do need to earn enough 
to live on and we try to be ‘professional* in terms of our standards of production 
and the service we provide. Never-the-less, we still want to retain the 'UserGroup 
feel' and, to that end, we have turned down all the offers we have had which would 
have involved marketting software or hardware under the Archive name. 

So, what we will do is make as much information as possible freely available to 
you, the reader. What we ask you to do, in return, is to continue to send in your hints, 
tips and longer articles and continue to buy your commercial software and bits of 
hardware through us to help finance the project as a whole. 

Many thanks again and here's wishing you every success in your own use of the 
Archimedes computer. 

P,S. Why not come and see us at the Micro User Show, May 13th - 15th, New 
Horticultural Hall, Westminster? 
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Hardware & Software Available 
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* SigmaSheet from Minerva is claimed to be 
200 times faster than Intersheet, Lotus 123 and 
Logistix and capable of handling sheets over 7 
times the size of Lotus 123. It should be 
available off-the-shelf by the time this magazine 
gets to you. The full price £69,95, Archive price 
£64. We hope to be able to rev iew it next month* 

■ Two new games, also from Minerva are: 
Hoverbod and Missile Control, £14.95 each. 
They should be available “in May”. More details 
next month. 

* A screendump for 24-pin printers (LQ80O 
and LQ1000) available from Abacus Training. 
The dump utilises the triple density graphics 
mode to produce a picture of 1280 x 1024 dots 
which comes out at about 7.5” x 5". This is was 
written by Mark Sealey and Gerald Fitton, two 
of our contributors, and is being made available 
to Archive subscribers for £5* {Or £3.50 if you 
send a formatted disc*) 

* U-Connect from Magenta Research - a 
general purpose comms package, exclusively 
WIMP driven, providing various terminal 
emulations plus a selection of File transfer 
protocols: X-modem, Kermit and CET for 
Frestel. Will run on 305 "s, but “1Mbyte 
preferred”. £59.95 inclusive* We've been 
promised a review copy, so we hope to report on 
this in a future issue* 

* ArcTerm - a free downloadable program 
from Hugo Fiennes on his bulletin board on 
0458 47608L (How do you get it if you haven't 
got a comms program for your Archimedes?) 

* PipeDream (alias View Professional) is 
being launched for the Archimedes by Colton 
Software at £99 +VAT “from May 19th”, 
Pipedream is an integrated suite of software: 
word-processing, spreadsheet + database, More 
details from Robert Macmillan on 0954 211472, 


■ Database of Educational Software and 
Addresses. This database, already well 
established on Viewstore, FIND, Supastore and 
KEY for the BBC B and Master series is now 
available (well, it said it should be by mid May) 
on System Delta Plus for the Archimedes. £20 
from Nick Evans, P.O.Box 55, Grimsby, DN32 
0QB. Educational orders welcome. 

* Fast action arcade game: QUAZER very 
colourful, very fast, several levels of skill, but 
basically just shooting up the on-coming enemy 
hordes. (My kids like it!) £8,95 from J. Rockey, 
Brecklands, Broad Oak, Shrewsbury, SY4 3AH 
or send S.A.E for information.0 



* Bush Rescue from 4mation. I didn't read the 
press release that Acom sent out carefully 
enough* *. Bush Rescue is for the BBC micro and 
Master series computers, but not the 
Archimedes* Sorry about that! 

* File paths: On page 10 last month; The 
“previous directory” is “V, not “}”1 

* Local DATA statements: We are assured 
that version in BASIC V version 1.03 (not yet 
released), RESTORE can restore relative to a 
line, so DATA can be put in any sort of program, 
including libraries. Also, the DATA pointer can 
be made LOCAL and RESTOREd like the error 
handler. The only problem is when will it be 
available, and how much will it cost? In the 
meantime, for an improved version of local 
DATA statements, see Joe Carlton's music 
program on page 13* 

* System Delta Plus. In Hints & Tips last 
month, we suggested that if you had problems 
with “No Room”, you should add “D” to the end 
of the filename - it should have said “,D”.0 
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Comment Column 

Eureka! Another first 
for Archive 

Archive was the first professionally produced 
magazine for the Archimedes and now we have 
launched the very first Bulletin Board specifically 
for the Archimedes. 

At least, I hope that by the time you receive this 
magazine, Archive will be on-line as the “Eureka! 
The Bulletin Board"'. If you have got your RS423 
working and have a suitable modem (1200/75 or 
300/300) ring in on 0603-250689 and access our 
new Bulletin Board. Facilities are at 3 levels: 

* General Access - anyone can call in and get a 
sampler of Archive magazine - articles to read and 
one or two programs to down-load. 

* Archive Subscribers. If you are armed with your 
subscription number as a password, you can get 
further facilities: 

Next month' s news — snippets of what is to come in 
the next issue of Archive 

Message board - leave messages for other 
subscribers perhaps asking for or offering help. 

The Archive editor and the editors of Eureka, Carl 
Wright and Paul Wickham, plus some of the other 
contributors will have mailboxes, so you will be 
able to leave messages for them. 

* Eureka! Subscribers (£5 / qtr). They will have 
their own personal mailboxes and will also be able 
to download the program listings from all the issues 
of Archive magazine as well as other programs 
which subscribers have sent in. 

If you have programs (preferably ones that are self- 
documenting) that you would be prepared to put up 
on Eureka!, let us know. Please test them very 
thoroughly before you send them because we want 
to maintain our reputation for quality. 

Yes, you guessed it, although SID really is the name 
of the Acom Bulletin Board, “CHARLIE” was a 
spoof - well it was in the April issue! Mind you, one 


or two ingenious folk managed to suggest a solution 
to the acronym. My favourite is Combined Help 
And Response Line for Inquisitive Enthusiasts! 

“Can I help?” 

Since the plea in last month’s issue for help in 
editing articles, we’ve had a lot of offers of help. 
The largest number were offering to help edit the 
languages section, then MS-DOS with only couple 
of people interested in helping with Econet. Within 
each group, I will try to put them in touch with one 
another so that they can then share ideas and 
between them, they will hopefully come up with a 
series of articles. I have suggested that they take it 
in turns - perhaps two or three months each - to be 
the actual editor to co-ordinate the material and feed 
it in to Archive. 

Brian Cowan has started us off on the Languages 
front and Ken Biddle on MS-DOS applications. 

Calling all enthusiasts! 

If you have a special interest in a panicular subject 
and want to be put in touch with others with similar 
interests, just send us a contact and we will publish 
it so that others can get in touch with you. (You 
could also use Eureka!) See page 8 for more details 
and the first contact to be sent in. 

ArcWriter still free? 

The rumour we hear is that Acorn have changed 
their minds and are going to continue to give a copy 
of ArcWriter free with each Archimedes. (Can 
anyone who has recently bought either a 300 or a 
400 series machine, confirm this?) 

RAM prices climbing 

You may well have heard that Acom, along with 
other computer manufacturers, are having to 
consider increasing the prices of their computers 
because of the world-wide shortage of RAM chips 
and the consequent rise in prices. There is no 
definite news of a price rise, but it may be the spur 
that some of you need to take the plung and buy your 
Archimedes now. You may perhaps want to use it as 
extra ammunition in trying to persuade those who 
hold the purse-strings (bosses or wives or 
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Comment Column 


whoever!) that it would be prudent to buy now 
before the prices go up* 

Podule RAM prices rise 

The general rise in the price of RAM chips has also 
affected those who have already bought their 
Archimedes - the RAM chips for the ROM/RAM 
poduies have also gone up in price- Computer 
Concepts have had to put their price up to £10 + 
VAT, We managed to get 50 chips from another 
supplier and were selling them at £11 (inc VAT), 
However, these have all gone now and we are 
buying them direct from Computer Concepts again - 
They can only give us a limited discount, so we will 
have to sell them at the same price - £11,50 
including VAT. 

PC Emulator 

Acorn are saying that "The new emulator offers 
better speed, better compatibility and more memory 
free to PC applications, almost totally regardless of 
the configuration of your machine. In addition, a 
new manual is supplied which has the benefit of 
documenting PUTFILE and GETFILE”. 

One cannot help but smile at the last comment. 
Acorn are recommending the new version because 
now, the manual actually explains certain of the 
commands which the software provides! 

I understand that the program discs that they are 
sending out now, contain versions 1.00,1.09,1.20 
and 1.21! The 1.20 version is described by Acorn as 
The current version” and the 1.21 as “under 
development”! 

What price the Archive discs? 

“What are the Archive program discs supposed to 
be?” and 14 Why don't we put more on them?” - these 
are two questions lam asked occasionally. 

Well, it was never intended to be more than a 
machine readable copy of the programs in the 
magazine and, as such, the price of £3 is quite 
reasonable, I think. We do not have the time or 
programming resources to put auto-menuing and 
various other bits and pieces on it. However, if we 
have odds and ends of things which may be useful, 
we’ll put them on the disc provided you accept them 


for what they are - i.e. if they are useful to you, 
great, but if not, please don’t feel that you are getting 
sub-standard goods - what you paid for was the 
programs from the magazine - the rest is the 
equivalent to the plastic submarines you get with 
the Cornflakes! 

Having said all that, there are one or two extras on 
this month’s disc. Because of the emphasis we seem 
to have placed on sound this month (I say seemed 
because I can only publish the articles I get sent each 
month) I have put in some User Tunes for playing 
with the Music Editor. Not all of them are complete, 
but just take them as you find them. If you have done 
some fantastic tunes and want to spread them 
around, by all means send them in and we will put 
them on next month’s disc. 

Wot?! No adverts? 

If you look through this month's magazine, you will 
find that there are no adverts. Does this represent a 
change in Archive’s policy? No, the main thing it 
reflects is that no-one has sent any adverts in! Wc 
don't have time to chase potential advertisers and so 
inertia wins and they don't bother advertising. 

Mind you, with the continuing rise in the amount of 
material we are being sent, it’s a good job we didn't 
have any adverts - we needed all the space for 
articles! In fact, on some articles, to fit it all in, I’ve 
reduced the point size of the text slightly. The text 
in most of the articles is one point size smaller than 
we've used before, (The article on page 37 is in the 
size we used previously,) If you think it’s getting a 
bit too small, let us know. 

No Acorn software reviews? 

Many of you have noted that we have not, as yet, 
done any reviews of Acom software (apart from 
Fortran 77). The reason is simple. Despite my 
having asked a number of different people. Acorn 
have not sent a single piece of review software to 
Archive magazine! I am tempted to conclude that 
our policy, from now on, should be only to review 
software from those suppliers who are prepared to 
support us by sending review material. 

If you have any views about this or any of the other 
matters raised in Archive, please let us know. 0 
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Comments 


* More about DATA statements for BASIC 
programs without line numbers... Gerald Fitton 
writes... now that we have easy access to disc files, 
there is no justification for keeping data within a 
program. It is much better technique to keep the data 
in a separate file. If the data does not change very 
often then it could be declared as a global variable 
(e.g. month$- “January, February, March,../’) at 
the start of the program or as a LOCAL variable for 
use within the LIBRARY function or procedure. If 
it might need to be changed (e.g. the notes of a tune) 
then it is better *LOADed as a data file into a byte 
array (which is my preference for small data files) 
or selections from it can be INPUT# (or BGET#) 
into a string, integer or real array or variable. 

* PC-Emulator. We have had several irate letters 
from readers about the PC emulator. The gist of the 
comments is that they think it is awful that after 
paying £115 for the emulator, which has no manual 
for either MS-DOS or GW-BAS1C, (as you get 
when buying the same software for an IBM 
machine) they then have to pay the extra £15 for the 
up-grade to 1.09. 

One person writes*** Now, there is a 1.20 PC 
emulator, superseding the 1.09 version for which 1 
have already paid £15 extra - it is apparently faster 
and more compatible than 1,09, BUT they want 
ANOTHER £15 off me to do the up-grade. 
Apparently, the £15 is an * administration fee’ for 
copying your disc and posting it back to you. OK, so 
in a big company it costs money to put cheques 
through the accounting system but surely the 
answer is not to charge at all but insist that people 
send a return envelope or sticky label and postage. 
It can’t take more than 2 minutes of someone’s time 
to copy a disc and shove it back in an envelope, can 
it? Is th e £ 15 a time that Acorn get o ut of it REALLY 
worth the aggravation it causes? I very much doubt 
it Another case of Acorn shooting itself in the foot! 

* Watford 5.25" Disc drive interface - One or 
two folk seemed not too pleased with Watford’s 
interface, but I understand that Watford are trying 
improve on their first efforts. 


* There are reviews of Arc Writer and Clares’ 
GraphicWriter in several places, most recently in 
Acom User for May, and Mike Bailey wants to set 
the record straight, 

I think there is unnecessary bias against Arc Writer. 
Yes, it has too many bugs and not all of them are in 
the relatively unimportant area of failing to rewrite 
the display - one can always scroll away and back. 
Most important for me is that it is too slow. It can’t 
keep up with my ‘power typing’ and when the 
keyboard buffer gets full it jst Ises letrs. (sic) 
(Actually I’m using TWIN now, as I do with large 
volumes, and then I import the text into ArcWriter}, 

With ArcWriter, I get very nice NLQ out of the 
Panasonic KXP1081, using bold, underline, italic, 
and the rest. I had to use the offline printer code 
program, but it let me do all the fonts of ArcWriter 
in one file. The supplied definitions for FX80 and 
LX80 got me going well. Now that Fm used to 
ArcWriter, I don’t seem to hit the bugs. 

Recently I bought GraphicWriter, partly on the 
strength of the reviews. I was immediately 
disappointed that it is not a true WYSIWYG 
processor, whereas ArcWriter is. But I gave it a fair 
crack, and tried migrating a 20 page script to it. So 
I exported it from ArcWriter and imported it into 
GraphicWriter. Not trivial - the GraphicWriter 
manual is far worse than it’s given credit for in the 
reviews (“the 63 page manual is abysmal” says 
Acom User). 

The files panel is very confusing and it took me ages 
to get the various pieces into the multi-file structure. 
I lost everything once and had to start again. When 
I started working through specifying the fonts, I 
found that it only supports half the fonts that 
ArcWriter does. There is a note in the book saying 
you can use the offline printer definition program to 
make bold underlined come out as italic, elite or 
some such, but the maximum number of fonts is still 
only half. Acom User says of GraphicWriter, “The 
wordprocessor allows you to use all the normal 
range of effects...” and later of ArcWriter, “The 
range of effects is adequate, though hardly 
exciting.” That’s plainly unfair. 
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Readers’ Comments 


Now to a nasty design feature of GraphicWriter 
(I’m learning not to call these things bugs. It seems 
that the graphical page make-up is done by physical 
page number, of which there is only one set even for 
multi-file documents. After carefully putting a box 
around a heading on page 2 of document 1,1 found 
the same box appeared in the same place in 
document 2. Quite a shock, as I’d been hoping to use 
the multiple document print feature later - now I 
would have to sit there making up the pages for one 
document at a time and printing it GraphicWriter 
doesn’t save the graphical make-up either. 

Another fault is a subtle one about how lines are 
scanned and converted to bit-images for the printer. 
I can have lines on the screen which all look the 
same width but come out on the printer with a 
variety of widths. 

In summary, I think Clares have missed the point If 
you go for What You See Is What You Want 
(WYSIWYW) then you should choose a scheme 
like IBM’s GML, which I have used for years, 
where the controls are human readable and high 
level, unlike GraphicWriter which is neither. The 
GML way, the user can add function by writing 
more SCRIPT macros and get some very 
sophisticated DTP functions. I expect ArcWriter is 
extendible by adding fonts and Acorn may 
eventually do it. GraphicWriter seems to be a dead¬ 
end design. I may still use it a bit, but it has less 
usability and less function than ArcWriter. I agree 
with Acorn User that neither product is good, but I 
look forward to an ArcWriter that performs 
properly, with the bugs fixed. Then I would happily 
part with £29.95 for it Q 



• Arc-Writer: (T.P.Whitehom writes) You can 
transfer documents between discs by clicking on 
the ‘A’ icon and *MOUNT’ing the new disc and 
then INSERTing the document into a new 
document file. This works once, but then the 
program crashes - at least it does on my 310. It 
seems a primitive method. Is there any other way of 
doing it? 


• He continues... Is there any chance of some 
articles on 3-D graphics for beginners - or is that 
a contradiction in terms? Any offers? (Have a look 
in RISC User, issue 5! Ed.) 

• Could we have some basic (not BASIC) 
articles, says one reader, for people who are mind- 
boggled by ‘configure*, ‘screensize’, ‘modules’, 
‘SWTs’ etc. Especially perhaps with those people 
in mind who are NOT ex-BBC users. Any offers? 

• Geoff Clout from Leeds asks whether anyone 
knows of a good label-printing program, in 
particular for printing audio cassette labels on an 
Epson compatible. (Native mode or BBC under 
65Arthur would do.) 

• CGP220 screendump. David Palmar of 
Jordanhill School asks whether anyone has a screen 
dump for a Tandy CGP220 colour printer. 

Help answers... 

• There is a partial renumber built into BASIC 
which is used to renumber APPENDed programs, 
however in general it’s just not worth the hassle of 
trying to get at it! In days of yore there were 6502 
programs that did partial renumbers published in 
magazines: the data format of a program is 
identical, so perhaps they could be used under the 
emulator? (Someone has just sent in a BASIC 
PROCedure for a partial renumber. I’ll try it out first 
before publishing it.) 

• Passing variables between a suite of programs. 
One suggestion is to push PAGE up or HIMEM 
down and use indirection operators, ?,!, I and $ for 
byte, four-byte, five-byte and string variables 
respectively. 

• File transfer with Apricot. Tom Fortescue has 
provided the enquirer with a program listing. I 
suspect that if you sent Tom an A5 S.A.E. he could 
be persuaded to send the same comprehensive 
documentation to other folk but I haven’t had time 
to ask him, so either ring us or send your S.A.E. via 
Archive magazine. Q 
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Hints and Tips... 
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* Colour TV output for Archimedes? If you 
haven’t got a colour monitor and want to use a TV 
to look at the output from the Archimedes in colour, 
you can feed the signal from the video output into 
the - video in ’ on a video recorder (always assuming 
you’ve got onel) and connect the *RF out’ from the 
recorder to the TV* 

* Drive lights on external 5.25” drives. One 
reader suggested that to avoid the external drive 
light coming on when I accessed the internal 
drive(s) I should remove all links except DS1 (I use 
DS2 to make it drive 2), TO, RR and MS. I followed 
his advice and it seems to be OK now. 

* 400 or 300? If a piece of software wants to find 
out if it is running in a 300 series machine or a 400 
series it can read the MEMO to find the size of page 
being used, thus: 

SYS n OS UpdateMEMC" f Q, Q TO size 

IF {size AND %11GQ) - 0 THEN 

PRINT "I'm a 3001” 

ELSE 

PRINT "I'm a 400! N 

ENDIF 

* More buzzing. One reader noticed that the 
buzzing from the speaker gets worse when you up¬ 
grade from a 305 to a 310. Other readers have found 
that the buzz gets to an intolerable level with certain 
software such as Arc Writer. In any case, this is now 
recognised by Acorn as a field change, so your local 
dealer should be able to sort it out for you. If your 
local dealer is not within easy reach then the 
“capacitor fix” mentioned in issue 3, page 7, is easy 
enough to do as long as you are reasonably 
competent at soldering. 

* Printer Acknowledge Line. The IOC (Input 
Output Controller) has a printer acknowledge line 
which can be read from the ARM supervisor mode. 
However, it is not advisable to 4 play around’ in this 
area, unless you know what you are doing, because 
some locations are read only and attempting to write 
to them could damage your IOC chip* Here is an 
example program that reads the printer 
acknowledge line. 


10 

REM >$.PrintAck 

20 

DIM code% S100 

30 

DIM flag% 1 

40 

50 

FOR Opt»0 TO 2 STE 

60 

p%=code% 

70 

[OPT opt 

80 

.printer ack 

90 

SWI "OS_EnterOS" 

100 

TEQP PC,#3 

110 

MOV RO,I&3200000 

120 

ADD R0,R0,#£10 

130 

LDRB HI,[R0] 

140 

AND R1,R1,#1 

150 

ADR R0,flag% 

160 

STRB Rl,[RO] 

170 

TEQP PC,#0 

180 

ORRNE R0, R0,R0 

190 

MOV PC,R14 

200 

] 

210 

NEXT Opt 

220 

230 

MODE 0:OFF 

240 

PRINTTAB (10, 5); 11 Pr: 

250 

REPEAT 

260 

CALLprinfer ack 

270 

PRINTTAB{21,5); 

280 

CASE ?flag% OF 

290 

WHEN 0 : PRINT”] 

300 

WHEN 1 : PRINT": 

310 

ENDCASE 

320 

UNTIL INKEY(0)=32 

330 

END 


* *TypeFiIe Command. One reader tried to define 
an alias which types out a file on the printer and then 
switches the printer off again, but he found that it 
was easier said than done. I set Adrian Look onto it 
and has managed to find a way of doing it (albeit 
rather tortuous!): 

*SET Alias$TypeFile ECHO 
<6Q>2<62>|M TYPE % 0 f M ECHO 
<60>3<62>IM 

then to print out the file, you do a *TypeFilc 
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cfilenamcx The <6G> and <62> are the ASCII 
codes for “<" and “>” 

It sounds a bit long-winded, but what you are trying 
to do is generate ASCII codes <2> and <3> to 
switch the printer on and off again. When you do a 
*SII0W, it gives the definition of TypcFile as 
ECHO 3<2>IM TYPE %01M ECHO !<3xlM. 

* “What’s the time, Arthur?” - If you wanted to 
change the prompt which Arthur gives, you could 
try, for example: 

+ SET CL1$PROMPT »> 

and you would get a question mark instead of the 
Star prompt. Then, if you want Arthur to tell you the 
time at each prompt, use: 

*SETMACRO CLI$PRGMPT <SYS$TIME>* 

ITiis prints out the time and then prints the star 
prompt. The reason you use SET MACRO rather 
than just SET is that it needs to be a variable which 
is up-dated each time the command is used. If you 
don’t like the seconds figure to be included, try: 
<SYS$TIME><127><127><127>* 

This prints out the time but then generates three 
delete characters which remove the seconds figures 
and the colon. Q 

Contact Box 

This is a new section in Archive, The idea is that if 
you have a particular interest in using the 
Archimedes and want to contact other people 
interested in the same sort of thing, you can send in 
your name and any or all of the following: address, 
phone number {work or evening) or mailbox 
number. Other people can then contact you to 
express their interest and you can form some sort of 
closed user group. 

As 1 understand the Data Protection Act, I can’t give 
out addresses of subscribers to other subscribers, 
but if you ;ire prepared to be a contact point, people 
can get in touch with you, David Palmar starts us off 
this month.., 

* Geography Teachers please contact David 
Palmar, Jordanhill College School, 45 Chamberlain 
Road, Glasgow, G13 ISP, Q 



* Roger Wilson from Acorn writes,.. I’ve used 
both NEC and Taxan monitors for some time. The 
Tax an has many advantages since it can be adjusted 
to match Arthur (See below) but the NEC picture is 
definitely better, 

* Centring the Taxan display, Rabin Ezra 
writes... it is possible to gel the display on the hi-res 
modes centred on the screen. (See complaint in the 
comparative review last month,) 

1. Set all push button switches to out (i,e. select 
colour, analogue, auto, auto, auto.) 

2. Set knobs for V.size, V.posi, H.posi to their 
centre click positions. 

3. With a low resolution mode selected, adjust the 
presets in row C to give an acceptable picture, 

4. With a hi-res mode selected, adjust the presets 
in row B to give an acceptable picture. 

* Phillips CM8873 — Adjustments to correct the 
sideways shift are available on the px.b, inside it. 
Service manuals are available from Phillips. 

* Fujitsu ME-503 multi-sync monitor is on sale 
from Viglen at £343.85 (inc VAT) + £8 carriage - 
substantially less than the £544 we were quoting for 
the NEC Multi-sync II. Does anyone know if it is 
any good? I asked Viglen if we could have a look at 
one but they said they were not interested In letting 
us borrow one for review “at this stage”. 

* Kaga Vision HI. Wc are told that, yes, it does 
work, but as far as I can gather, only on TTL, i.e. ii 
will not give the full range of colours unless you get 
or make a suitable adaptor. 

* Mitsubishi EtIM 1471a, One West German 
reader tells us that it is comparable with Taxan 770 
Plus and NEC MS II but that n has an 18mm shift in 
modes 18-20 and a bit of distortion in other modes. 

* WARNING. One reader tells us NOT to use 
*Configure MonitorType 2 unless you have a 
monitor suitable for modes 22 and 23. He says tins 
because, by doing so, he damaged his monitor, {He 
didn *t say what the damage was or how much it cost 
to repair, but “better safe than sorry”.) 0 


8 


Archive May 1988 
















Ian Nicholls 

By now, yon will no doubt have played a bit with the 
Music Editor on the Welcome disk, listened to 
Ai TUNE 1" and “TUNE2” and maybe even entered a 
tune or two of your own. However, the magic may 
have worn off a little after you realised that there 
was no easy way to add to the selection of string and 
percussion voices included in the system ROM! 
Indeed, there is no mention of this subject 
whatsoever in the, otherwise, impressive 
documentation that Acorn send you with the 
Archimedes. 

If you have bought the Archimedes "Programmers 
Reference Manual” (PRM), the chapter on Sound 
will not have been the easiest chapter that you have 
read, but it contains hints of features that might 
provide a due to expansion of the range of voices* 
It tells you that the library of internal voice 
generators (i.e. those in the system ROM) includes 
simple waveform oscillators and a speech data 
interpolator, plus the string and percussion voices. 

Now before you get too excited about this speech 
business, Acorn point out in the Addendum to the 
PRM that the speech data interpolator is not, after 
all, in the library of internal generators! That still 
leaves the "simple waveform oscillators”* The only 
sound generator left in the system ROM is 
"WaveSynth”. The waveform oscillators and 
WaveSynth must be one and the same! 

WaveSynth 

Delving further into the PRM Addendum reveals 
that you can have multiple copies of a relocatable 
module with version 1.2 of the Arthur operating 
system. Such copies, or “instantiations” as Acorn 
call them, have many workspace areas but only one 
code area. The example quoted is, yes you have 
guessed it, WaveSynth, with WaveSynth%Brass 
being the name of the instantiation of the 
WaveSynth module with the Brass voice loaded. 

Believing myself to be on the trail of something 
interesting here, l disassembled the WaveSynth 
module looking for evidence of how to load a new 


voice. I came across an undocumented SWI call, 
which appeared to do just that. However, by this 
time the trail of clues was mnning out (as was my 
time!) so, more or less in desperation, 1 wrote to 
Acorn. I received a letter in reply, enclosing a disc 
containing a new voice for me to try (in the form of 
a wavetable), the program that generated it, and the 
data for the BEEP wavetable* (BEEP is the name of 
the sound that WaveSynth normally produces - the 
"bong” Archimedes makes when you switch it on*) 

At the end of the article, parts of this program are 
reproduced, enough in fact for you to create the new 
voice for yourself. In the next article a much more 
generalised version of the program will be given 
which will enable you to create an almost infinite 
variety of new voices. I will also give you the 
missing parts of Acom's original program and pose 
one or two questions to which I do not have the 
answer. You can be the ace detecti ve instead of me! 

What I will be describing in this and the succeeding 
article are software features of the Archimedes 
sound system which Acorn are not prepared to 
support at present. I will return to Acorn's position 
on all of this later, but first I need to explain what a 
wavetable is and how you use one to create sounds. 

Wavetables 

All electronic ally-produced sounds reach our ears 
via a loudspeaker. The loudspeaker makes a sound 
as a result of a varying voltage being applied to It* In 
almost all of the micros prior to the Archimedes 
(including the BBC micro), this varying voltage has 
been generated directly by a special purpose sound 
chip. Such chips typically provide only one shape 
for the varying voltage, and hence for the resulting 
sound, although software allows the user to alter the 
frequency of the sound, its volume and the length of 
rime for which it sounds. The most usual shape for 
the varying voltage (because it's very easy to 
generate with digital circuitry) is a square wave, 
which alternates between two values. However, 
sine waves are the basic building blocks of almost 
all sounds and the program below uses them to 
create a sound something like a trumpet. 
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The approach adopted in the Archimedes is entirely 
different* It has no sound-generating chip but 
instead it calculates the shape of the sound-wave 
entirely in software! A digital to analog converter 
(DAC) then converts the resulting stream of 
numbers into the corresponding varying voltage. 
This whole process is only possible because of the 
immense speed of the ARM RISC processor chip. 

All musical sounds have a repetitive waveform: if a 
piano plays middle C, which has a frequency of 
approximately 262 Hz, the sound we hear is made 
up of the same waveform being repeated 262 times 
a second. If we know the shape of this repeating 
waveform, we can calculate its value at many 
equally-spaced points during one cycle and store 
them in a table* To recreate the waveform and 
generate a sound, we just need to write a routine 
which repeatedly reads the successive values in the 
table and sends them to the DAC. When the end of 
the table is reached the routine begins reading from 
the beginning of the table again. 

If we read val ues from the table at the same rate as 
before, but read only every second value, then we 
will move through the table twice as fast and the 
resulting sound will be at a higher pitch, in fact 
twice the frequency. Similarly, if we read every 
value twice, it will take twice as long to step through 
the table and the resulting sound will be half the 
original frequency* So, by storing only one table (a 
waverablc), and altering the way we read values 
from it, we can create a whole series of similar- 
sounding but differently-pitched notes* If you want 
to explore these ideas a bit further then the 
references at the end of the article are worth reading : 
I would particularly recommend the two articles by 
Hal Chamberlin. 

Creating A New Voice 

The program below is based on this method of 
generating a sound. In fact, it goes much further 
than creating just one wavetable, it creates and 
stores 330 of them, and each one contains 256 
separate values. The reason for having so many of 
these wavetables is to take account of the variation 
of the loudness of the sound (a very rapid build-up, 
with a more or Less constant loudness in the middle 
and then a decay to nothing), and the changing mix 


of harmonics as well (we will look at these in the 
next article)* The program that reads the 330 
wavetables is WaveSynth and every one hundredth 
of a second it moves on to the next one, so the note 
that is produced will last 3.3 seconds if it is allowed 
to decay to nothing* 

To use the program, you need to make sure that your 
disk has at least 100k of free space on it. You then 
need to create a directory in which to store the 
wavetable it creates* To do this, enter the command 
*CDIR WaveTables. You should then run the 
program and when it asks you for a name for the 
wavetable, type in the name “Brass”, It will then 
store the wavetable it has created with the name 
Brass in the WaveTable directory* 

Using The New Voice 

To load the Brass wavetable as a new voice you 
have to enter the following commands (assuming 
you are at the BASIC prompt) 

*DIR WaveTables 

SYS n OS_Modnle H , 14, ,t WaveSynth%Brass" 
QUIT 

*RMREINIT WAVESYNTH BRASS 

(N.B. — the case of the characters must be adhered 
to in the second line.) 

If you now change to the Welcome Disc (type 
* MOUNT to cause Arthur to recognise the changed 
disc and read its catalogue, but do not press cctrl- 
break> to reset the machine), and type *DESK, you 
can move to the Music Editor program. 

When the Music Editor has loaded, select SETUP 
from the main menu and then INSTRUMENT from 
the SETUP menu. If you now cycle through the 
available voices by pressing the SELECT button on 
the mouse, you will see an extra voice is now 
available called “WaveSynth-Brass”! If you load in 
TUNE I or TUNE2, or one of your own, you can 
then listen to it* It should sound at least a little 
reminiscent of a member of the Brass family! 

In the next article I will explain some of the extra 
facilities which the developed version of the 
BASIC program below can offer, such as additive 
harmonic synthesis and complex FM synthesis. 
This month's program uses simple FM synthesis! 


10 


Archive May 1988 








Sound Synthesis 


Support From Acorn 

In concluding the article 1 must make clear Acorn's 
stance with respect to WaveSynth and our use of it. 
This is a totally unsupported feature of the operating 
system, the capabilities of the wavetable system 
may change (with later versions of Arthur), and 
Acom will enter into no correspondence about any 
aspects of this article or about WaveSynth. 

Acom admiL that this might seem a bit harsh, but 
they argue that the sound system is very complex 
and they cannot spend a lot of time answering 
technical queries about this unsupported (and 
undocumented) aspect of it. 

References 

Chamberlin Hal, “A Sampling of Techniques for 
Computer Performance of Music” in ‘‘The Byte 
Book of Computer Music”, Byte Books, 1979 
(ISBN 0-931718-11-2) 

Chamberlin Hal, "Advanced Real-Time Music 
Synthesis Techniques”, BYTE April 1980 

Roads Curtis and Strawn John (editors), 
"Foundations of Computer Music”, The MIT Press, 
1987 (paperback edition - ISBN 0-262-68051-3) 

Tail Simon, "Music Micro Please”, Personal 
Computer World, Dec 1983 - Feb 1984 (3 articles) 

10 REM > FMBrassl4 
2 0 REM 

30 REM Build Segmented Wavetable, 

and the correct header block (s) 
4 0 REM 

50 REM © Acorn Computers, 1988 
60 : 

70 MODE 0:PRINT 11 FM Wavetable 

Voice builder.,*" 

80 : 

90 NBkPts% -1000 

100 : 

110 DIM AmpEnd(NBkFts%-l),AmpTime 

(NBkPts%—1) 

120 DIM ModEnd(NBkPts%-1),ModTime 
13Q . (NBkPts%~l) 

140 REM amp breakpoints in cent!secs 
150 DATA 0,1.0, 1,1*0, 30,0*8, 300, 
0.8, 330,0, 0,0 

ISO : 

170 REM mod breakpoints 


DATA 0,3*0, 5,7.0, 30,4.5, 300, 
6.5, 330,0, 0,0 

REM carrier/modulator frequency 

ratios 

DATA 1*0, 1.001 

bp%=0 
READ t,v 

AmpTime(bp%)-FNTime(t) 

AmpEnd(hp%)=v 
REPEAT 

READ t,v 
t = FMTime(t) 

IF t>AmpTime(bp%) THEN 
bp%+=l 

AmpTime(bp%)=t 
AmpEnd(bp%)=v 
ENDIF 

UNTIL t < AmpTime(bp%) 

AmpBP% = bp% 

EndTime = AmpTime(bp%) 

bp%=0 
READ t,v 

ModTime(bp%)=FNTime£t) 

ModEnd(bp%) =v 
REPEAT 

READ t, v 
t = FNTime(t) 

IF t>ModTime(bp%) THEN 
bp%+=l 

ModTime(bp%)=t 
ModEnd(bp%)-v 
ENDIF 

UNTIL t < ModTime(bp%) 

ModBP% = bp% 

READ EC, FM 

nWaves%=EndTime DIV 256 

PRINT nWaves%;" wavetable 

segments maximum 11 

Wavesize % —nWaves % 

WaveHeader%=((64 + (nWaves%+l) 

*8)+255}DIV256 

BuffSize%—(WaveHeader% 

+WaveSize%)*256 
DIM Buff% BuffSize%~l 


180 

190 

200 

210 

22 0 

230 

240 

250 

260 

270 

280 

290 

300 

310 

32 0 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

5 90 

600 

610 

620 

630 

640 
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650 WaveTablel = Buff%+WaveHeader% 

*256 

660 WaveDescriptor% = Buff1+64 
670 descriptor%=8 
680 : 

730 ampBPl“0 

740 modBF%=0 

750 t%=G 

770 endsegl=D 

780 WHILE t% < EndTime 

790 IF t%>=AmpTime(ampBPl) THEN 

BOO A=AmpEnd(ampBPl) 

810 AT=Amp T i m e (a mpBF %) 

820 ampBP%+=l 

8 30 dA= (AmpEnd (ampBPl) -A) / 

(AmpTime(ampBPl)-AT) 

850 ENDIF 

860 a=A+dA*(t%-AT) 

870 IF tl>=ModTime(modBPl) THEN 

880 I-ModEndCmodBP%) 

890 lT=ModTime(modBPl) 

900 modBPl+=l 

910 dl=(ModEnd{modBPl)-I)/ 

(ModTime(modBPl)-IT) 

930 ENDIF 

940 i=l+dl*(t%-IT) 

950 IF (t%MGD256)=0 THEN 

960 PRINTTAB(0,2)/"Segment: ,T ; 

t%D!V256 

970 WaveDescriptOr% l 0=&FF+(51 

<<9):REM one waveform 
980 WaveDescriptorl!4=£( 

descriptor% + l) «1 6) 
+Wavelleader% + (t%DIV25 6) 
990 WaveDescriptOr%+=8 

1000 descriptor%+=l 

1010 IF AmpEnd {ampBPl)=0 AND 

endseg%=0THENendseg%=tlDIV256 
1150 ENDIF 

1160 p=2*((t% MOD 256)+0.5)*FI/256 

1170 x=a*$IN£FC*p + i*$IN(FM*p)} 

1180 1%=FNDAC1og £ x) 

1200 WaveTable%?t%=ll 
1210 tl+=l 
1220 ENDWHILE 
1230 : 

1260 PRINT "EndSeg (gate-off) 

segment: ";endsegl 
1270 WaveDescriptorl10=0 

:REM end waveform 
1280 WaveDescriptorl!4=0 
1290 : 


1300 PROCHeader 
1310 : 

1320 PROCSave 
1330 END 
1340 : 

1520 DEF PROCHeader 

1530 REPEAT 

1540 PRINT"Name"; 

1550 INPUT name$ 

1560 UNTIL L£Nname$>0 AND LENname$<12 
1570 FOR A%=0 TO 63 STEP 4 
1580 Buff% 1Al = G 

1590 NEXT 

1600 title$="!WT:"+name$ 

1610 $Buffl=title$ 

1620 Buff%?(LENtitle$)=0 

1630 Buffi!!6=BuffSizel 

164 0 Buffi 120-8 

1650 Buffi£24=8 

1660 Buff% I 2 8=8 

1670 Buffi132-8 

1680 Buffi136-8 

1690 Buffi140=8 

1700 BuffiI 44=8 

1710 Buffi!48=8 

1720 BuffII52=8+endsegl 

1730 

1740 ENDPROC 
1750 DEF FROCSave 

17 60 OSCLI ( 11 SAVE WaveTables." 
+nameS+" "+STR$-Buff%+ 

" + ,, + STR$-BuffSize%+ 11 0 FFFFFDQQ IT ) 
177 0 OSCLI ("STAMP Wave Tables * 11 +naine$) 
1780 ENDPROC 
1810 : 

1820 DEF FNTime (t) =t*256:REM convert 
centlsecs to sample periods 

18 30 : 

1B40 REM log of N in the range + /- 1 
1850 DEF FNDAClog(N) 

1860 LOCAL SI, N%:IF N<Q THEN S%=£01: 

N=ABS(N) ELSE SI-&00 
1870 IF N=0 THEN — S% 

1880 Nl=0 * 5 + INT(N*4096 +16) 

1890 IF Nl > &FFF THEN = SI OR &FE 
1900 WHILE N%>—32 
1910 N%=NI>>1 : 5%=5%+&20 

1920 ENDWHILE 

1930 =SI OR ((NlAND&F)*2) £J 
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Joe Carlton 
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two-thirds of the value and the smallest value that 


The sound system on the Archimedes is somewhat 
more complicated than on the Beeb. BASIC 
programs to play simple tunes on the Beeb will not 
work when transferred to the Archimedes and the 
information in the User Guide and the Reference 
Manual may well be correct, but it isn't very easy to 
understand! With this in mind I set out to write a 
simple BASIC program to enable tunes to be played 
from DATA statements. To do this it is necessary to 
understand TEMPO, BEATS and VOICES. 


fits these criterion is 6. Multiplying thi s up for notes 
of other values, we get the following: 


Name 

Note 

Dotted 

Triplet 

Demisemiquaver 

6 

9 

4 

Semiquaver 

12 

18 

8 

Quaver 

24 

36 

16 

Crotchet 

48 

72 

32 

Minim 

96 

144 

64 

Semibreve 

192 

288 

128 


VOICES 

To take the simplest of these commands first; you 
can have 1 , 2, 4 or 8 separate sound channels open 
at any time and to select this number you simply 
enter VOICES 1, or VOICES 2, etc. If you use 
VOICES 3, four channels are opened. VOICES 5,6 
or 7 opens eight channels. It is necessary to assign 
a “voice" to each channel used and to see what 
voices are available just type *VGICES. To assign 
the voice to a channel, type ^CHANNEL VOICE 
<channel> <voice>; for instance 
*CHANNELVOICE 1 2 means that all SOUND 
calls to channel 1 will use the StiingLib-Soft sound 
envelope. 

TEMPO and BEATS 

Tnex two commands are a little more complicated 
and are to some extent dependent on each other. 
TEMPO sets the “speed" of the music. The default 
value is &100Q, which sets die length of a beat to 
one hundredths of a second (cent!-seconds). It is 
best at this stage, to accept the default value and 
concentrate on the BEATS statement, which sets 
the number of beats in a bar-not musical beats, but 
TEMPO beats. The shortest note in normal music 
notation is the demi semi quaver, so we need to set a 
value for this. Many tunes include triplets, that is 
groups of 3 notes to be played in the normal time for 
2, shown on music scores as 3 notes with a tie-bar 
and the figure 3 over them. Many scores also show 
dotted notes, which are played one and a half rimes 
as long as the standard note. So, the value of our note 
must be such that we can show the whole or half or 


SOUND 

Having decided the length of our notes, we now 
have to play them and this is where the SOUND 
statement comes in. On the Archimedes, SOUND 
has five parameters: channel, volume, pitch and 
duration (all the same as on the Beeb) and a new 
parameter “after", 

Channel can be any number between 1 & 8 and 
these numbers relate to the channels opened by the 
VOICES statement. 

Volume carries a value between 0 (mute) and -15 
(maximum). 

Pitch is a number between 0 & 255 and there is a 
table in the User Guide, page 183 to relate this 
number to musical notes. 

Duration is measured in twentieths of a second, so 
at the default setting of TEMPO, 1 corresponds to 5 
beats (5 centi-seconds). Actually, this parameter 
does not seem to be critical, as the Archimedes cuts 
off a note when it is ready to play the next one, so as 
long as you make sure it's long enough, it doesn't 
matter what value you put against this, unless you 
are trying for a staccato effect by clipping the note 
off before the next is due. 

After counts the beats from the beginning of the bar 
and starts to play the note on the specified count. For 
example, if we are in common time (4/4) and 
BEATS is set at 192, the four (musical) beats would 
fall on beats number 0, 48, 96 & 144. As BEATS 
reaches 192, it resets to zero so the next bar can 
begin. Having set the ‘after* parameter for one 
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channel, it is possible to synchronise the notes 
played in the other channels by entering -I on the 
other SOUND commands, although this is really 
useful only if all notes are to be synchronised. 

NewWorld Program 

The program, 1 ‘New World”, plays a 3-voice version 
of the theme from Dvorak’s New World 
Symphony. There are two additional commands 
connected with sound used in this program - 
^SPEAKER OFF at line 55, which switches off the 
internal speaker because I play the Archimedes’ 
sound through my hi-fi. Remove this line if you 
want to use the internal speaker, or you won’t hear 
very much! Lines 110,130 & 150 use the STEREO 
command to spread Lhe voices across the "stage”, 
but you will only hear the effect of this through an 
external system such as the mini-headphones from 
a personal stereo. 

Playing Tunes 

PROCtune_one, PRGCtune_two etc form the 
active pan of the program, reading the data and then 
playing the notes. The format of the data is the 
number of notes to be played i n the particu lar bar for 
voice 1, followed by the pitch, duration and "after” 
parameters for each note. This is then repeated for 
voices 2 & 3. Each line of data is for one complete 
ban Line 790 waiLs for the value of BEATS to reach 
zero (the start of a bar) and line 820 checks that the 
bar is under way before sounding a note. Such is die 
Archimedes’ speed that this line really is essential! 
Because we have built in this delay, it is prudent to 
add 1Q lo each "after” parameter, so the common 
time beats fall on BEATS 10, 58, 106 & 154, 

If you want to SEE just how fast the Archimedes 
handles the sound commands, change line 60 to 
MODE 15, add line 795 CLS and add lines 835,885 
and 935, each as GCOL RND(63):ELUPSEFILL 
RND(!279) t RND(W23) t RND(200)+50 t 
RND(200)+5Q t RND{ If 

Notes about LOCAL DATA statements 

Adrian and Ed. modified Joe's program to use the 
technique for putting DATA statements into 
procedures that we mentioned in the last issue . This 
technique has been further refined (ie. it works 


properly nowI) hut may need a little explanation , 
When PRQCtuneone is executed, it sets up the 
local error handler and reaches line 310 where and 
error is deliberately generated. It then executes line 
300: RESTORE ERL sets the DATA pointer to line 
310 where the error occurred , RESTORE ERROR 
(a different use of the same keyword) restores the 
error handler to what it was previously, then the 
data is used by PROCplay. If you would prefer to 
have the procedure more self-contained rather than 
making a call to a procedure from the error- 
handler f you could use: 

DEF FROCtune_one 
LOCAL flag 
LOCAL ERROR 
flag=TRUE 

ON ERROR LOCAL RESTORE ERL 
IF flag% THEN flag=FALSE:ERROR 
RESTORE ERROR 
PROCplay 

data 3,65,14,10, etc,.. 

DATA 

ENDPROC 


10 REM > $.NewWorld 

20 REM by Joe Carlton 

30 REM March 1988 

40 REM Mods by Paul & Adrian 

50 

55 ^SPEAKER OFF 
60 MODE 0 
70 TEMPO &1000 
80 BEATS 192 
90 VOICES 3 
100 *CHANNELVOICE 1 3 
110 STEREO 1,0 
120 *CHANNELV0ICE 2 2 
130 STEREO 2,100 
140 *CHANNELV01CE 3 2 
150 STEREO 3,“100 
160 FOR Z%=1 TO 2 
170 PROCtune^one 
18 0 P RO C t un e_t wo 

190 PROCtune_three 
200 PROCtnne three 
210 PROCtune^one 
220 PROCtune_four 
230 NEXT 
240 END 
250 

260 REM Data for New World by Dvorak 
270 
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280 DEF PROCtune one 


290 LOCAL ERROR 

300 ON ERROR LOCAL RESTORE ERL: 

RESTORE ERROR:PROCplay:ENDPROC 
310 ERROR 

320 DATA 3,65,14,10,81,4,82,81,19,106 
,2,33,19,10,21,19,106,1,5,36,10 
330 DATA 3,65,14,10,61,4,82,53,19,106 
,2,33,19,10,21,19,106,1,5,38,10 
340 DATA 4,61,14,10,65,4,82,81,14,106 
,65,4,178,1,33,38,10,1,1,38,10 
350 DATA 1,61,38,10,2,33,19,10,25,19 
, 106, 1, 1,38, 10, 99 

360 ENDPROC 
37 0 

380 DEF PRQCtunetwo 
390 LOCAL ERROR 

400 ON ERROR LOCAL RESTORE ERL: 

RESTORE ERROR:PROCplay:ENDPROC 
410 ERROR 

420 DATA 3,65,14,10,81,4,82,81,19,106 
,2,33,19,10,21,19,106,1,5,38,10 
430 DATA 3,65,14,10,61,4,82,53,19,106 
,1,37,38,10, 1,21,38, 10 
440 DATA 4,61,14,10,65,4,82,61,14,106 
,53,4,17 8,2,41,19, 10,49, 14 
,106,2,25,19,10,33,19,106 
450 DATA 1,53,38,10,1,33,19,10,2,21 
,19,10,5,19,106,99 

460 ENDPROC 
470 

480 DEF PRGCtune_three 
490 LOCAL ERROR 

500 ON ERROR LOCAL RESTORE ERL: 

RESTORE ERROR:PROCplay:ENDPROC 
510 ERROR 


520 DATA 3,89,14,10,101,4,82,101,19, 
106,1,53,38,10,2,25,19,10 
,41,19,106 

530 DATA 3,97,9,10,81,9,58,89,19, 

106, 1,53,38,10,2,33,19,10 
,25,19,106 

540 DATA 4,89, 9,10,101,9,58, 97, 9, 106 


,81,9,154,1,53,38,10,2, 25,19,10 
, 33,19, 106 

550 DATA 1,89,38,10,1,53,38,10,1,25 

^ ,38,10,99 

560 ENDPROC 

570 


580 DEF PROCtune four 


590 LOCAL ERROR 

600 ON ERROR LOCAL RESTORE ERL: 

RESTORE ERROR:PROCplay:ENDPROC 
610 ERROR 


620 DATA 3,65, 14,10,81, 4,82,81,19, 106 
, 2,33, 19, 10, 61,19, 106, 2,5, 19, 
10,49,19,106 


630 DATA 3,101,14,10,109,4,82,113,19 
,106,2,53,19, 10,53,19, 10 6,2 
,41,19,10,33,19,106 
640 DATA 4,109,14,10,101,4,82,109,9 
,106,89,9,154,1,41,38,10,1 
, 25, 38, 10 

650 DATA 1,101,38,10,2,33,19,10,53,19 
,106,1,21,19,10 

660 DATA 1,89,38,10,1,73,38,10,4,61 
, 14, 10,53, 4, 82,61, 9, 106 
,41,9,154 

670 DATA 1,81,38,10,1,65,38,10,1,53 

, 38,10 

680 DATA 1,81,38,10,1,65,38,10,1,5 

,38,10,99 

690 ENDPROC 
700 

710 DEF PROCplay 
720 REPEAT 
730 READ N1 

740 IF Nl<>9.9 THEN FRGCplayit 
750 UNTIL Nl=99 
760 ENDPROC 
770 

780 DEF PROCplayit 

790 REPEAT UNTIL BEAT— 0 

800 FOR X%=1 TO N1 

810 READ P,D,A 

820 REPEAT UNTIL BEAToQ 

830 SOUND 1,-15,P,D,A 

840 NEXT 

850 READ N2 

860 FOR X%=1 TO N2 

870 READ P2,D2,A2 

880 SOUND 2,-15,P2,D2,A2 

890 NEXT 

900 READ N3 

910 FOR X%=1 TO N3 

920 READ P3,D3,A3 

930 SOUND 3,-15,F3,D3,A3 

940 NEXT 

950 ENDPROC (gj 



Programmers’ Reference Manual, page 283 
“Types don't match” is error number &C5 (197) not 
&C6 (198) 

User Guide Issue 3, page 313 the result of doing an 
OPENUP when the file already exists is NOT to 
delete the old file, nor does it create a new onet It 
simply opens it for up-dating, (JJ 
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Kevin Smith & Matthew Treagus 

The EMR SoundSynth package forms only a small 
part of a complete music system for the Archimedes 
called “Arpeggio” of which I am sure we will be 
hearing more i n the near future. It is just as well that 
the entire package is coming out as different 
modules because it will make it much more 
attractive to users who only need certain facilities* 

The Sound Synth is essentially a sound voice 
generator which can be linked to the rest of the 
Arpeggio system and to BASIC via Arthur {the OS) 
using the EMR Waveform Filing System. The 
program itself is very neat and tidy and boots up into 
a clever but completely useless title screen 
featuring a spinning EMR logo. You then progress 
on to the Arpeggio Music System Main Menu 
which is the focal point of the system providing 
links to the SoundSytith and 16 other modules 
including the Editor, Performer, Sampler and 
Midi bank* 

The SoundSymh menu screen is set out with the 
current waveform in the top left hand comer-each 
voice being made up of as many as 512 different 
waveforms. Just below this is a linear 
representation of the sound showing loops, length 
and position of the current waveform in the sound. 
The top right hand side contains general 
information and the bottom half of the screen 
contains the thirty options blocks and the help 
window (if selected) These thirty options are 
explained briefly below. 

Simple Commands 

The first set of options that we shall deal with are the 
simpler ones which do not need much explaining. 

Help On/Off-Helpon produces a help window on 
the screen. 

Sample - Allows you to obtain a sound wave from 
the A44H sound sampling board, also available 
from EMR. 

Load - Loads a sound into memory. 

Save — Saves a sound to disk. 


Append - Joins a sound loaded from disk on to the 
current sound in memory. 

Show - Displays a 3-D graphical representation of 
the complete sound. 

Hear - Allows you to hear the sound by pressing 
keys on a simple keyboard layout This is just meant 
as a testing facility* 

Master Volume - Controls the overall volume of 
the sound output. 

Print - This provides access to two sub options 
‘Sample’ gives a dump of the sound in a two 
dimensional form. The sound can be very long, so 
the user is provided with a method of scaling the 
printout in order to prevent the printer from 
throwing seven feet of paper ail over the desk! ‘SD\ 
gives a screen dump of the graphic image displayed 
by the ‘Show’ option. 

Editting Commands 

The next set of options are concerned with editing 
the sound directly. References to ‘waves* can mean 
all or part of the sound. Each block of waves is 
selected by using the mouse to select the limits of 
the block. The keyboard is only used to enter 
filenames or echo delays* 

Move - Moves a wave from one position to another. 

Insert Area - Allows you to insert a blank area into 
the current wave. 

Insert - Inserts waveforms directly into the sound, 
increasing die length of the sound as more 
waveforms are added. 

Copy — This copies waves of the sound from one 
position to another. 

Delete Area - Deletes waves inside the currently 
displayed waveform. 

Delete — Deletes waves and compacts the 
remaining waves together. 

Wipe - Deletes complete sets of waveforms from 
the sound and leaves the area deleted as blank space 
rather than reducing the overall size of the sound. 
Edit - Edits the currently displayed waveform by 
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EMR SoundSynth 


moving the mouse pointer inside the waveform 
window. 

Harmonics - Edits individual waveforms by 
changing amplitudes of different harmonic 
frequencies. These varying frequencies combine to 
form a clear sound which is played as you edit. To 
do this, a special window is displayed showing the 
various amplitudes in he form of a barchart, and the 
mouse pointer can be used to pull the bars up or 
down on the graph, 

Sound Enhancement 

The next set of options are slightly more 
complicated as they provide the musically inclined 
user with some very ingenious facilities to enhance 
their sound. 

Alter With Equation - Allows you to change 
sections of the current sound with a mathematical 
equation. It accepts all the mathematical functions 
from BASIC and has some added special features. 
Gate On - This defines the amplitude envelope of 
the sound while the sound is triggered. 

Gate Off-This defines the amplitude envelope of 
the sound after the sound trigger has been released. 
Interpolate - Gradually changes one waveform to 
another by creating a set of intermediate waves. 
Random - This option generates random waves in 
the sound, producing white noise. 

Echo - This adds echo waves on to the sound. You 
can set the echo volume and the delay period 
between the main sound and the echo. 

Reverse - Physically reverses part or all of the 
sound. 

Overlay - Merges the current sound in memory 
with one loaded in from disk. 

Scale — Makes the amplitude of the sound smaller 
or larger. 

Slapback - Repeats waves after the main sound has 
been played. This is similar to echo. 

Looping - Replays part or all of sound as if it were 
part of the original sound. 

Comments and Criticisms 

As a stand alone package it is only really useful as 
a voice generator for other programs. It makes voice 


generating very easy using well presented screens 
and good graphical representations of the sounds. 

Overall, this package is excellent. It is well 
presented and easy to use, once you have got to grips 
with all the various jargon terms (see glossary). 

There are a few minor criticisms that we have... 

The first is the documentation (a twenty page 
manual) which is only just adequate, although the 
on-screen help and the generally user-friendly 
layout makes up for part of this. The Waveform 
Filing System is well documented. 

One small problem when actually using the 
package was that mouse controls can effect parts of 
the screen which are not currently under the mouse 
pointer. {Confusing, but not that important) 

One feature that we would have liked to have seen 
is the ability to change the waveform number whilst 
within the edit or harmonic options, as opposed to 
having to leave the option first in order to change the 
waveform number and then re-entering the option. 

Another feature that was missing was an 4 undo' 
feature on the editing options which would provide 
a way of restoring the previous waveform after 
making a mistake. This can be quite annoying. 

Interaction 

Interaction between the package and BASIC is 
made easy by the 'Waveform Filing System’ 
module. The 'SoundSynth' has the ability to 
interact with future parts of the 'Arpeggio' suite by 
means of the initial main menu. 

Conclusion 

At £50.00 this package is a very reasonable buy for 
those who wish to get the best out of their 
Archimedes sound chip and for those who wish to 
expand and buy the rest of the 'Arpeggio' suite or 
the A448 sound sampling board. 

Note 

EMR are currently offering a special promotional 
offer of the package for £40.00, but this is a limited 
offer, EMR also produce library discs of sound that 
can be used in the Waveform Filing System and in 
the SoundSynth. 0 
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Languages Corner 




Brian Cowan 

This will hopefully be the start of a regular 
feature about using different languages on the 
Archimedes. Brian has very kindly agreed to 
start us off by editing the first lot of material but 
other folk have offered help and they may well 
take it in turns to do this section of Archive. If 
anyone has any questions or hints and tips ? 
please write in and we will do our best to deal 
with them each month. 

Books 

“Computer Languages: A Guide For The 
Perplexed’ 1 by Naomi S.Baron, published by 
Penguin at £9.95 (ISBN 0-14-02.2807-1) 

This is a delightful book about the whole range of 
computer languages. It is equally suitable for the 
novice who knows nothing and the experienced 
user who wants to know about other languages. The 
first part of the book discusses general aspects of 
computer languages from a linguistic point of view. 
This is followed in the second part by individual 
sections on twenty two languages from Ada, 
through BASIC, C, Modula-2, FORTH, 
FORTRAN, LISP, Pascal etc lo SNOBOL. 

Each section gives a tabulated profile of the 
language which gives an explanation of its name, a 
discussion of the language structure, its functions, 
its genealogy presented usually as a family tree, its 
history and a summary of its versions/dialects. 
There is also mention of special characteristics. It 
then expands on these points, discussing the 
history, often including political and “big business" 
considerations. Some sample program segments 
arc usually given and the sections conclude with 
speculation about the future of the language. 

The section on BASIC is very fair considering the 
unpopular press this popular language usually gets 
from computer experts! This section is also 
distinguished by the absence of any mention of 
BBC BASIC! Tliis may be explai ned by the fact that 
the author of the book is American; she admits that 
the contents of the book represents her own 


experience. Each section ends with a well 
documented List of references which includes books 
and magazine articles. 

Finally there is an appendix which discusses briefly 
some seventeen other languages, among which are 
COMAL, Occam, POP and Turing, 

This is a well written book and it is an easy read. It 
is ideal for anyone in the process of choosing a 
language. For the seasoned programmer it gives a 
superb overview of the gamut of computer 
languages. 

C Programming - Apparently Acorn recommend 
their programmers to read U C: A Reference 
Manual" (Second Edition) by Harbison and Steele, 
published by Prentice Hall, ISBN 043d 09802-0. 

All serious C users, at some stage you will want to 
look at the book by the author of the language, 
Dennis Ritchie, “The C Programming Language" 
by Kemighan and Ritchie, published by Prentice 
Hall, 1978, ISBN 0-13-110163-3. 

Other Languages for Archimedes? 

Modula-2 — It seems that Acom are not going to 
release their Archimedes version of Modula-2, 
They have a version which is used within Acom but 
it needs 2 Mbytes of RAM to compile and so could 
not be used on the 300 series machines. 

BCPL - There must be an Archimedes BCPL since 
this is the language in which the ill-fated ArcWriter 
was written. It appears that Acom are not going to 
release this either. 

Repeatability 

The current versions of the compilers for C, Fortran 
77 and Pascal do not produce relocatable code. The 
problem is in the language libraries. This means that 
you can not use these compilers for writing code for 
relocatable modules. Relocatable versions of the 
languages are being produced and the firstto appear 
should be C towards the end of this year, Tt should 
come with user-friendly linker and utilities for 
producing relocatable modules complete with 
header code etc. 
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Languages Corner 


Parameters in Command Files 

Mike “Beard** Williams (not to be confused with 
any other Mike Williams you might know!) writes in 
reply to Lawson Wakefield’s query about 
command file parameters: 

Suppose we often want to do the same series of 
operations to different data files but don’t want to 
type all the commands in each time. We could write 
a program in BASIC, using OSCLI commands, but 
this is not always appropriate. What we can also do 
is to write a command file in which the name of the 
data file is a variable. When we want to run it we first 
SET a value for the variable, then execute the 
command file. 

This simple example will execute a SCREEN 
LOAD command to a filename contained in the 
variable SPILE. 

*BUILD LOADIT 

*SETEVAL ALIAS$TMP "SCREENDUMP TT 

+SF1LE 

*TMF 

*UNSET ALIAS$TMP 

Explanation: line 1 evaluates the expression 
“SCREENDUMP “+SFILE and stores the result in 
a temporary alias called ALIASSTMP, line 2 causes 
ALIAS$TMP to be executed, line 3 is optional; it 
leaves things tidy by deleting the temporary alias, 

*SETTYPE LOADIT &FFE 

can be used to tell Arthur thatthis is a command rile. 
When we want to use the command file we type, e.g. 

* SET SPILE $,USERFICS,MYFILE 
*LOADIT 

This might seem like a lot of work, but there are 
some languages where the compilation of a 
program is performed in a complex series of stages 
which could not be controlled from BASIC using 
OSCLI, but a command file using variables for the 
file names could be used. 

Floating Points 

Those considering the use of a compiled language 
for number crunching on the Archimedes will, no 
doubt, have been disappointed in the speed 
comparisons at the end of last month’s review of 
Archimedes Fortran 77, In certain respects the 


figures were a little unfair since the other machines 
both had floating point coprocessors installed 
whereas the Archimedes was using the floating 
point emulator. This is no comfort for 300 series 
owners whose machines will not accommodate a 
coprocessor. However there are some modest speed 
increases in later versions of the emulator and a new 
memory controller chip MEMO a speeds up the 
MUL instruction. 

Owners of 400 series machines will be looking 
forward to the release of the hardware floating point 
coprocessor system. Tliis is expected lo wards the 
end of this year, although the cost will be in the 
neighbourhood of £700. Floating point programs 
should run some eight times faster with the 
coprocessor. Comparison with other machines 
would then be a very different story! Early results 
(courtesy of Roger Wilson) comparing the software 
emulator and hardware floating point coprocessor 
gave the following benchmark results, (both double 
precision): 

Em u lator Co- processor 

LinPaek 11.46 KFlops 92.25 KFIops 

WhetStone 88 KWhets 674 KWhets 

There is no point in using single precision, since 
double or extended precision are only minutely 
slower. Most of the overhead is in working out what 
the instruction does rather than doing it! The above 
tests were done using the floating point emulator 
version 2.50 and using the new MEMC chip, so 
euirent machines will not be quite as fast. 

So where does this leave the humble BASIC user? 
If the Acorn 32016 systems are anything to go by, 
a version of BASIC using the floating point 
coprocessor was eventually released. Maybe the 
same will happen for Archimedes BASIC. A 
BASIC assembler that supports the floating point 
mnemonics is certainly required, and while we are 
at it, what about Acorn doing a compiled version of 
BASIC 5? 0 

Both Gerrald Fit ton and John Smith (whom I 
inadvertently called A J.Smith last month , Sorry!) 
have been working independently on floating point 
assemblers - we have now put them in contact with 
each other and await developments! Ed . 
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Gwyneth Pettit 

This FORTRAN library published by CCD 
Computer Services, price £49.50, consists of a disk 
containing the Graphics library file (GxLib), a 
command file for setting up a Hewlett-Packard 
serial plotter and four demonstration files 
(FORTRAN source code, sample data and 
demonstration output) plus an excellent user guide. 

The library provides over 90 subroutines which can 
be called from a FORTRAN source code text file 
with simple commands such as: 

CALL GVPLOT(IK,IX, IY) 

(c.f. PLOT K%,X%,Y%). An object code file is 
then prepared by including the library file, GxLib, 
with the main f?7 library file at the linker stage. 

Subroutines 

'Hie subroutines can be divided into two groups: 

* a group of 33 calls which access various VDU 
calls (including those for mode, colour, 
windows, and plotting filled and outline shapes). 
■ a group of general calls which generate 
sophisticated graphs (including 3D data 
representations), histograms, pie-charts etc. 

* Also access to Arthur calls - see ‘Tost Script". 
Without using a graphics library, a FORTRAN user 
could access Archimedes graphics directly through 
VDU calls, using commands based on:— 

WRITE CHAR(IX) 

However this can get complicated for users not 
already familiar with BBC BASIC VDU 
commands, particularly with VDU 23 (which 
requires 9 parameters) or VDU 25 (PLOT) 
commands, for which screen coordinates have to be 
sent as high byte-low byte, because they exceed the 
maximum byte value of 255. The VDU subroutines 
in this library relieve the programmer of these 
digital gymnastics and give a smooth 1 user friendly' 
access to the many graphics effects possible 
through VDU commands. FORTRAN users with 
experience only of mainframe terminal displays in 
monochrome will particularly enjoy exploiting die 
256-colour modes, which make the Archimedes 
worth (nearly) every penny. 


General calls 

The general calls are divided into a number of 
groups including: 

- General calls to initialise the library by setting 
up default parameters etc. or to set up an output 
device. 

* Routines to define, draw, scale, mark and label 
axes (x-, y- and/or z-axes) and to plot data pairs, 

* Routines to scale and output characters or 
strings, including the opportunity to output at 
any angle of slant or rotation and to prepare and 
output user-defined characters. 

* Routines for different line styles 

* Routines for several standard statistical 
presentations, e.g. pie-charts, histograms etc. 

These routines are specifically designed for 
programmers wishing to display calculated data, 
using a variety of graphical representations. They 
avoid a considerable amount of tedious ‘house¬ 
keeping" work such as setting up axes and divisions, 
the scaling of parameters and the organization of 
text output. Thus, graphs of mathematical functions 
can be displayed for scientists and engineers, and a 
wide range of business graphics can be 
programmed without the need to understand 
Archimedes graphics beyond the fundamentals of 
screen modes and pixel counts. 

The routines do not have facilities for scaling, 
windowing and clipping, nor are there facilities for 
picking and dragging shapes from menus (which 
could exploit GCOL 3 for EOR or Exclusive OR 
drawing, invaluable for CAD users). The term 
‘graphics library 1 is therefore in a somewhat limited 
sense, but what it does, it does well. 

Output can be directed to the screen or a file. Files 
can then be output to a number of output devices, 
including Hewlett Packard plotters, for which the 
necessary software is included. Alternatively the 
output could be sent directly to a Plotmate plotter, 
which responds directly to Archimedes VDU 
commands, if the Plotmate can be interlaced with 
Lite Archimedes, The reviewers were not able to test 
this facility. 
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Documentation 

The manual is particularly helpful, filling in much 
useful information omitted from the Acorn 
FORTRAN manual. It gives guidance on the 
recommended directory structure of working disks, 
using either a single or double disk drive and, most 
usefully, a suggested command file to create a good 
working environment and maximise the memory 
available. This includes suggestions for a number of 
alias$ and RMKILL commands and for loading the 
floating point emulator. It does not give advice for 
those of us fortunate enough to own a 440 with a 
hard disk but this is straightforward in practice. The 
440 has effectively no memory limitations and you 
can load the GxLib FORTRAN library rile in the 
same directory on the hard disk as the f77 
FORTRAN library file. 

Summary 

As a library of FORTRAN output routines this 
Graphics Extension Library is well prepared and 
well documented, making it easy to use and saving 
a lot of programming time, which can easily offset 
the initial cost of the library. By writing a small 
FORTRAN program to change mode, transmit 
VDU5, to move the graphics cursor and prim a 
message, and to draw a tilled triangle, I was able to 
feel that even in FORTRAN my Archimedes was 
comfortably familiar to a BBC user; those who have 
come straight to the Archimedes without using the 
BBC B or Master will find this graphics library 
extremely flexible and comprehensive compared 
with many other micros (certainly compared with 
most minis and mainframes). 

p.s.... 

As this review was being prepared , a very welcome 
extension to it arrived in the post, providing access 
to the Archimedes operating system , thus giving the 
FORTRAN programmer a rare ability to control 
graphics programs interactively. There is an 
INKEY function and access from FORTRAN to 
machine code routines , 5 WI calls and ' * 7 
(OSBYTE) commands and much ; much more . This 
will make it possible to use the mouse and even 
better, the more ergonomic graphics input devices, 
to access the WIMP environment and to perform 


simple and useful functions such as cataloguing a 
disk or clearing buffers. This is a major extension to 
an already impressive FORTRAN support library 

Purely for output, however, this first version of the 
Graphics Extension Library is very useful and can 
he recommended as an almost necessary addition 
to the Acorn FORTRAN disk r since it adds 
commands similar to those provided by GINO or 
similar FORTRAN support packages on 
mainframes and minicomputers, at a fraction of the 
combined cost. We shall have more information 
about the cost of the second stage in the next review, 
but there seems no doubt that the whole system wilt 
he more than good value. H 

Bug or Feature? 

* *FX22G,n allows the selection of a key other than 
the escape key to generate the escape event. For 
example, *FX22Q,1 makes <ctri-A> generate an 
escape. Unfortunately, if you use *FX220A 
commonly used on the BBC micro, you will find 
that not only does <ctrl-@> generate an escape, but 
also the pound sign and grave accent! 

This was pointed out to us by Comex Computing 
who had this problem with their Bank Manager 
program. If you have version 3.0 or 3.1 of their 
program, send your diskette back to them and they 
will replace it. 

* One reader says he gets the ^Unknown IRQ at 
&0U00G00Q” error even with no RS423 lead 
attached - any ideas, anyone? 

Now some answers from Acorn... 

* The problem of the pointer breaking up is due to 
the nature of the parameters given to VIDC: it is 
ameliorated in future versions of Arthur. In the 
mean time, declare pointer bit maps with the active 
area at the left, (or do they mean right?) 

* TRACE in BASIC gives very little information 
simply because BASIC doesn *t execute many of the 
lines one would nai vely expect - which is why it 
goes so quickly! However, BASIC V version 1.03 
has a sophisticated alteration to slow it down (i.e. 
execute more of the lines one might think it was 
going to) when TRACE is active! 
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MS-DOS Column 


Ken Biddle 


create 2 new files called ! START and !END in the 


This will hopefully be the start of a regular 
feature about using PC software on the 
Archimedes. Ken has very kindly agreed to start 
us off by editing the first lot of material but other 
folk have ottered to help and they may well take 
it in turns to do this section of Archive. If any one 
has any questions or hints and tips, please write 
in and we will do our best to deal with them 
month by month. 

Ken writes.,* I am starting a list this month of 
software that does run using the PC-emulator. If 
you can add to the list in any way then please write 
in to me. 


following way : 

*BUILD !START 
♦CONFIG-SCREENSIZE 10 
*CONFIG.FONTSIZE 0 
*C0NFIG.SPRITESIZE 0 
^CONFIG.RMASIZE 0 
*RMK ILL F ON MANAGE R 
*RMKILL STRINGLIB 
*RMKILL PERCUSSION 
*RMKILL ARMBASICEDITOR 
*RMKILL WINDOWMANAGER 
*RMCLEAR 
*RMTIDY 


The documentation that is distributed with the PC- 
emulator is virtually non existent so we will be 
providing more information each month on the 
DOS environment and its commands and also GW- 
BASIC which is also supplied with the package* 

PC-Emulator Software List 

Wordstar Release 3 
Wordstar Release 4 
Microsoft QuickBASIC 
Norton Utilities 
Dbase III 

Zortech C Release 2 
SideKick Release J36A 
DOS Release 33 

Hints and Tips 

Allocating more RAM to DOS 

The Archimedes RAM can be allocated in various 
ways and it is important when using the PC- 
emulator Lhat as much RAM as possible is free for 
the Simulated DOS environment. 

The following is one way of achieving the 
maximum amount of RAM for DOS* 

Backup your existing PC-emulator disk and then 
put it away in a safe place. It is recommended that 
you should now only use your newly created disk as 
a working version of the emulator. You should now 


Now press <escape> 

*BUILD 1 END 
*CONFIG.SCREENSIZE 20 
*CONFIG.FONTSIZE 6 
^CONFIG.SPRITESIZE 2 
*CONFIG.RMASIZE 2 
*RMREINIT FOMTMANAGER 
*RMREINIT STRINGLIB 
*RMREINIT PERCUSSION 
*RMREINIT ARMBASICEDITOR 
*RMREINIT WINDOWMANAGER 

Now press <escape> 

You now have two new files on the disk which 
should be used in the following way to optimise the 
amount of RAM available to the DOS environment. 

Before you boot up the PC-emulator you should 
enter the following command - *EXEC [START 
and then boot the PC-emulator disk as normal. 

This will configure the RAM allocations in favour 
of DOS and will also unplug and resident modules 
that DOS does not need. Boot up DOS in the normal 
way and you should find that you have a DOS 
system of well over 500k 

When you have finished in PC-mode and you return 
to the Arthur operating system, you should type the 
following : *EXEC !EMD 
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Your RAM allocation will now be reset reasonable 
values and the Modules that were previously 
disabled are now reinstated, 

RAM Disks 

It is qu itc a si m pie procedure to set up a ram disk and 
is achieved in (he following way: 

Type die following : 

EDLIN CONFIG.SYS 
I 

SY$TEM=RAMDRIVE.SYS xxx 512 64 

Now press <ctrl-Z> 

(xxx is the size of the ramdisk (i.e. 100 would give 
you a 100k ramdisk.) DOS can now be re booted 
<ctrl/alt/del> and a Rarndrive of the specified size 
will be created. 

If you only have one physical disk drive then this 
ramdisk is extremely useful for transferring 
programs and or files from one disk to another. 


GETFILE and PUTFILE 

Finally this month, we w ill have a quick look at the 
utilities GETFILE and PUTFILE. These utilities 
may be used to move programs and or files between 
the DOS Filing system and Acorn's ADFS, 

For example: 

A>GETFILE :0.test B:ken.txt 

copies the file test from the ADFS format in drive 0 
to the DOS format in drive B while at the same time 
renaming it to ken.txt 

A>PDTFILE Aiken.txt zO.test 

copies the file ken.txt from DOS in drive A: to 
ADFS in drive 0. 

Well that's all for this month. Please write in and tell 
me if you have any specific queries and 1 will do my 
best to address them, Q 


Auto-Configuration Re-Visited 


Andy Currie 

This program is a development of Adrian Look's 
two programs on automatic re-con figuration in 
Archive volume 1, issue 5 . 

The idea of this version is that it will not only 
configure the machine to the requirements of the 
current application, but it will re configure the 
CMOS ram to the settings immediately prior to 
running it, ready to reset after using the application. 


that inactive modules do not report errors. Key 0 is 
then loaded with the calling action for the 
application and the keyboard buffer loaded with the 
code for Key 0. This is done because when we use 
*RMTIDY it will switch BASIC out and wipe out 
our program. 

The two lines ENDIF and END are never reached 
by the program w'hcn it runs, but are included as 
good programming technique. 


This adaptation takes advantage of the fact that any 
changes to the configuration of the machine are 
only acted upon at the next <break>. On the First 
pass through the program the current settings of the 
CMOS Ram are saved in Lhe user area of CMOS 
ram, the memory configuration is reset, and the 
machine code software reset routine is assembled. 
The machine is then configured to auto-boot and the 
software reset called. 

On the second pass through the program the original 
CMOS settings are restored, any unwanted 
modules are RMKilled using XOS_MGDULE so 


This particular SBOOT file is for use with the 
PC_Emulator and will give 520k working space 
within the DOS environment. The disc should be set 
with *OPT 4,2 to run ’BOOT as a BASIC program 


>1 boot 

Auto Configure 

1.10 

Andy Currie 
2 April 1987 
REM Program expanded from the 
original idea by 
REM Adrian Philip Look in 

Archive Vol.1 Iss.05 


10 REM 

20 REM Program 
30 REM Version 
40 REM Author 
50 REM Date 
60 

70 
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Auto-Configuration 


80 

90 *FX 200,2 
100 

110 DIM code% &FF 

120 SYS "OS_Byte”,161,16 TO ,, 

misc_flags 

130 auto_boot=(misc_flags AND 

% 10000 ) 

140 IF auto_boot=0 THEN 
150 PROCsavecmos 
160 PROCconfigure 
170 PROCassemble 
180 *configure Boot 
190 CALL code% 

200 ELSE 

210 PROCrestorecmos 
220 PROCkillmodules 
230 *KEY0 "PC.Emulate IM” 

240 *FX138,0,128 

250 ♦configure NoBoot 

260 *RMTIDY 

270 ENDIF 

280 END 

290 

300 DEFPROCsavecmos 

310 SYS ”OS_Byte",161,134 TO 

,,default 

320 SYS "OS_Byte",162,30,default 

330 FOR A%=1 TO 5 

340 SYS ”OS_Byte",161,A%+142 TO 

,,default 

350 SYS ”OS_Byte”,162,A%+30 

,default 

360 NEXT 
370 ENDPROC 
380 

390 DEFPROCconfigure 
400 ♦configure ScreenSize 10 
410 ♦configure RMASize 0 
420 ♦configure SpriteSize 0 
430 ♦configure RamFsSize 0 
440 ♦configure SystemSize 0 
450 *configure FontSize 0 
460 ENDPROC 
470 

480 DEFPROCassemble 

490 FOR opt=0 TO 2 STEP 2 

500 P%=code% 

510 lOPT opt 

520 MOV R0,#&3800000 

530 LDR Rl, [R0] 

540 STR Rl,[Rl,-Rl] 


550 

SWI &16 

560 

TEQP PC,#&FC000003 

570 

MOV PC,#0 

580 

] 


590 

NEXT 

opt 

600 

ENDPROC 

610 



620 

DEFPROCrestorecmos 

630 

SYS 

"OS_Byte",161,30 TO ,, 



default 

640 

SYS 

"OS Byte",162,134,default 

650 

FOR 

A%=1 TO 5 

660 

SYS "OS Byte”,161,A%+30 TO 



,,default 

670 

SYS "OS Byte",162,A%+142 



,default 

680 

NEXT 


690 

ENDPROC 

700 

: 


710 

DEFPROCkillmodules 

720 

SYS 

"XOS Module",4,"Debugger" 

730 

SYS 

"XOS_Module",4, 



"Sy stemDevices” 

740 

SYS 

"XOS Module",4,"Econet" 

750 

SYS 

"XOS Module",4,"Netfs" 

760 

SYS 

"XOS Module",4,"Netprint" 

770 

SYS 

"XOS Module",4, 



"ARMBasicEditor" 

780 

SYS 

"XOS_Modu1e", 4, 



"WindowMan age r" 

790 

SYS 

"XOSModule",4, 



"Fontmanager" 

800 

SYS 

"XOS_Module", 4, 



"Soundscheduler” 

810 

SYS 

"XOS Module",4, 



"Stringlib" 

820 

SYS 

"XOS_Module", 4, 



"Percussion" 

830 

ENDPROC Q 
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Reversing the CAPS lock......6.7 

RGB connector...1.18, 2.6 

RMtidy .......................3.9 
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ROMs, BBC, in 65Arthur.....3.10,4.7 
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*TIME format _ 4.5 

Naff RTC Month . ..2.9 

Setting the clock.......2,8,5.7 

Time formats in BASIC .. .,..4,6 

SGML Teletext Adaptor........6.14 

Scottish User Group. ....3.3 

Screen Banks - Use of....438 

Screen dumps....— 1.9,236, 332,4.20, 5.42 

Centroni cs GLP... 5.9 

Colour... 6.2 

One liner.,...... 5,7 

Screen load/save Module .. 6.9 

Screensave, fast.. 5.6 

Screens into different modes. 6.7 
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SETTYPE .. 3.44 

Sideways Scrolling with VDU23.,....339 
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Sounds Interesting... 335 

Special effects in VIEW... 3.9 

Sprite editor,.,. 5.6 

Statistical Software .. 3.6 

Stereo speakers....,...,2.7 

String handling, BASIC V___ 4.19 

Submitting Articles to Archive.....5.50 

SWT - Neater than OSCLI.. 5.7 

SWT Listings .........,.„„.„....3,47 

Switching off desktop. 4.7 


SYS.. 5.7 

System Delta Plus.....4.10,432 

SystemDevs Module ..3.10, 6.41 

Taxan 770+ multisync monitor...6.10 

Teletext Adaptor.......5.2, 6.14 

Testing multi-sync output......6.6 

Text editor offer.. ,5.3 

Text files for BASIC... 5.6 

Text processor/editor .. .3.6 

Time format....4.5, 4.6, 6.28 

TRACE, problems with.. 6.11 

TWIN and TWINO . .......2.9 

Undocumented screen modes .. .3.9 

User Group 

Bristol.. ..4.2 

Scottish... 33 

South Wales... 53 

User Guide Errata ... L42, 2.49 

User Port on the I/O podule...3,12 

VDU 23,26. ..6.5 

Video Digitiser... ,.23 

View.......1.5, 3.9, 5.7, 5.8, 6.7 

Whales in Zarch .. ...3.11 

Wildcards on ADFS___ 2.10 

WIMP Environment.2.16,3.26,537,630 

WIPE warnings (0.2 & 0.3). 1.7 

Word Perfect - PC Emulator.......4.5 

Word Processors__ „„2,8 
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Wordwise Plus ......L2, 2,4, 2,20 

Word wise Plus boot file.....3.11 

Zarch.....................23,3,11 


This index is based on material supplied free of charge 
by Matthew Treagtts (aged 15). If you feel inclined to 
send him something for his efforts, Tm sure he wouldn't 
objectf (30 Hampton Lane r Blackfteld, Southampton, 
S04 1ZA or come and see him at the Micro User Show.) 
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Using the Debugger - Part 2 


Gerald Fitton 

Introduction 

In last month’s program, “MemoryOl”, we used the 
debugger command *MemoryB to display a block 
of memory as ASCII or hex. The program also 
provided a facility for modifying any byte of 
memory by entering changes in ASCII or hex. This 
month we shall concentrate exclusively on the 
disassembly and modification of machine code (i.e. 
executable object code) particularly with the 
debugger command *MemoryI. To do this we first 
need some machine code. Perhaps you’ve already 
got some, but if not then either you can use the 
source code program “Messaged” to generate 
some simple object code, or, for the more 
ambitious, you can use “Memory02” to type in, as 
floating point mnemonics, the code for calculating 
the square root of 10 to 18 significant figures. 

The Program “Messaged” 

This is a short (40 line) program which can be used 
either as a stand alone code generator which stores 
its object code in a directory called &.ObjectCode 
or as a LIBRARY file containing the self-contained 
function FN_Message01 for generating relocatable 
object code. When the object code is CALLed it 
prints a message on the screen “Watch this space. “ 
followed by about 32 full stops. 

The *MemoryA command 

This debugger command provides a way of typing 
hex code directly into memory one (4-byte) word at 
a time. It disassembles and displays only that one 
word, it has no facility for entering either ASCII or 
ARM mnemonics. Perhaps it’s a bit strong to say 
that it’s a dead loss, but this month’s program offers 
more facilities: so I shall say no more about 
♦Memory A. 

The *Memoryl Command 

This debugger command disassembles and displays 
a block of memory as five fields across the screen. 
The first of these fields is the the address in memory 
of the start of a 4-byte word; the second field 
displays the value of the contents of those 4 bytes as 


printable ASCII characters; the third contains the 
hex code of the word in “reverse order’’ (i.e. the 4th, 
high byte, first), by now you will have remembered 
(!) that words are placed in memory with the low 
byte at the lower address; and the fourth field 
contains the assembler mnemonics. The debugger 
disassembles and displays not only ARM 
mnemonics but also floating point mnemonics. 

Brief Description of Program Memory02 

This program represents a considerable extension 
to, and some modification of the program 
“MemoryOl”. Many of the modifications to the 
procedures FNalterASCII and FNchangehex arise 
because the ASCII and hex fields are interchanged 
and because the hex field is “reversed” as explained. 
A new pair of procedures, FNchangemnemonic 
(line 11600) and FNinsertmnemonic (line 11900), 
have been added to allow entries to be made into the 
mnemonic field. Also added is the procedure 
FNreadmnemonic (line 11500) which uses 
OS_Byte 135 to read the mnemonic as it is 
displayed on the screen and PROCassemble (line 
25000) which is used to assemble object code from 
an ARM mnemonic. This last procedure also 
contains a LOCAL ERROR trap which “vectors” 
mnemonics not recognised by BASIC to the 
procedure PROCfloatingpoint (line 20000). This 
floating point “assembler” is not intended to be 
comprehensive but it is included to show how a 
BASIC program containing ARM mnemonics can 
be extended to include f.p. mnemonics (or any new 
co-processor mnemonics). With the three 
mnemonics of PROCfloatingpoint the square root 
of 10 can be evaluated. 

What Can You Do With the Program? 

My general philosophy for programming is to write 
them in three sections. The first (pre-core) section 
uses lines 100 upwards to declare variables and 
describe, with REM statements, how they will be 
used in the program. My core section, from line 
1000 onwards I try to keep as short as possible (but 
not this time!) and use it only to call self-contained 
procedures which do the work. These procedures 
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(the third section) start at line 10000 with DEF 
PROCerror (in case I forget END - what if the first 
procedure was “Delete all my precious files?”). 

So* it is with a half apology that 1 am using over 80 
lines of core section. My excuse is that I think in this 
case it helps the reader to see what they can do with 
the procedures contained within the program. A 
better programming technique would be to include 
the routines (e.g. the choice of file to load) as FNs 
which would be selected from a single keystroke (or 
mouse selected) menu, 

Li nes 1050 to 1140 contain a routi ne so that you can 
move around the hierarchy of directories looking at 
the files they contain. You can use “ A ” to move up 
the directory tree. The routine between 1150 and 
1230 lets you select an object code (or other) file to 
load into the memory at &10000 and lets you know 
the size of the file, You must use the routine at lines 
1250 to 1310 to set the buffersize at least as large as 
the file you are going to load. It doesn't matter if it's 
too big. It must not be too small The “clever bit” at 
1280 to 1300 will guarantee that the buffer starts at 
& 10000, which can be useful when reading 
addresses in the code. 

As an alternative to loading an existing object code 
file you can use lines 1350 to 1430 to load a self- 
contained code-generating FN such as 
“McssageOI" into the LIBRARY, run it and 
assemble the code into the buffer; You must be In 
the directory containing the LIBRARY file for this 
to work, and the filename must be the same as the 
name of the function (in this case “MessageOl") and 
this name is case dependent. If the assembled code 
is longer than the buffer* the program will crash at 
this point. 

Line 1460 repeatedly calls FNmodify which is the 
entry point to all the memory modifying functions 
(see below). You can CALL the code (lines 1500 to 
1570) before saving it. If the program doesn't crash 
but just produces the wrong effect you can re-run 
the program (loading nothing into the buffer) and 
make modifications before calling the code again. 
Finally you can save the executable object code in 
the (existing) $,GbjectCode directory (or not!) by 
any file name you choose after selecting how much 
of the buffer you wish to save. 


A *DUMP of the resulting object code rile isn’t 
essential but you may like it. The routine at line 
1800 can be modified to send the disassembled 
buffer to a printer. If you want to do this then change 
1800 to VDU 2 : PROCmemory( £ T ” , buffer% * 
savefilesize% *0*0):VDU 3, 

Those of you with programming skills (all Archive 
readers?) shouldn't find it too hard to put REPEAT 
- UNTIL loops around the routines you want to 
repeat. The most ambitious will* no doubt* make it 
all run from DeskTop! 

FNmodify and Sis Dependants 

Pressing <Tab> changes tab% from 0 to 1 * from 1 to 
2 and from 2 back to 0, The lines following 11240 
select which of the ASCII* hex or mnemonics fields 
can be modified. Of die FNs called* FNalterASCII 
and FNchangehex work in a manner similar to those 
of the program “MemoryO l ” of last month, Save the 
program* switch off the computer and then LOAD 
and RUN the program. This guarantees an empty 
buffer. Just press <retum> until PROCmemory is 
called, displaying a block of memory extending 
from & 10000 to the word after & 1003C. Type a few 
characters into the ASCII field. Note that values in 
the hex field change “backwards”, from the right 
After four characters, the cursor appears to move 
down a line and you will see in the previous line 
*MemoryI has disassembled the code into the 
corresponding mnemonics. If you press <Tab> you 
can enter code in hex. Note that now the ASCII 
characters are entered “backwards”. You can enter 
all zeros in the hex field to generate a machine code 
instruction* “ANDEQ RQ,R0,R0”, that in effect* 
does nothing. 

As the next experiment you can enter a short 
program in machine code which will prim a 
message on the screen. Clear a block of memory 
starting at address & 10000 by entering zeros in the 
hex code field. Starting at address &10000 enter 
“EF020001” which has the mnemonic “SWT 
XOS_WriteS”. This is the code for “Write the 
ASCII text string following this instruction until 
you get to a zero byte”. Starling at address & 10004, 
and in the ASCII field, type in some text such as 
“Watch this space.” etc. Make sure you leave some 
hex 00s after the end of the text (the “end of string” 
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marker), then type, in the hex field, at the next full 
hex word after the zeros, the code “ElAOFOOE”. 
This will produce the mnemonic “MOV PC,R 14” 
which is the code to return to BASIC after C ALLing 
a machine code program. Having done all this, if 
you press <retum> you will be asked if you want to 
CALL the code, press “Y” and your text will be 
printed to the screen. You are now a genuine 
“Machine Code” programmer. 

Now for something harder. Switch off and start 
again. After typing in the code “El AOFOOE” move 
into the mnemonics field where “MOV PC,R14” is 
found and change it to “MOV R0,R 14”. If you now 
<tab> either you will find that the hex code has 
changed to “E1AOOOOE” (and the mnemonic has 
been accepted) or the program will crash. Press 
<Escape> if it worked (or<reset> followed by OLD 
if it crashed) and list lines 25000 to 25120. You will 
find that line 25090 has changed from 50 semi¬ 
colons to “MOV R0,R14”. This is the self¬ 
modifying feature of the program executed by line 
25030. 

If your program crashed then you should check that 
you have typed in lines 25090 onwards exactly with 
no spaces after the line numbers (Easier to buy the 
program disc, I think. Ed.) and exactly 50 
semicolons in line 25090. The value &43 in line 
25030 is chosen to place the amended mnemonic in 
exactly the right place. For those having real 
trouble, either give up and buy the disc from Paul, 
or change line 25030 to $(TOP-&40)=LEFT$ 
(mnemonics,40) and work out what has gone 
wrong, gradually increasing the &40 until the 
mnemonic starts immediately after the line number. 
You can then change the right hand side of the 
equation of line 25030 back to LEFTS 
(mnemonic$,50). 

There are some anomalies to look out for when 
entering ARM mnemonics. The SWI instructions 
must be entered with inverted commas such as SWI 
“XOS_WriteS” even though the mnemonic display 
of *MemoryI does not show the inverted commas. 
This results in code corruption if you <Tab> out of 
a mnemonic field having a SWI instruction. The 
program will not recognise BASIC commands 
which have to be tokenised before presentation to 


the BASIC compiler. An example of a mnemonic 
which fails is MOV R0,#ASC(“A”). From within 
our program ASC( is not tokenised when it is 
presented to line 25090. It would have been 
tokenised if the line were entered from the keyboard 
and the BASIC compiler expects this. 

The next piece of machine code will “work” only if 
you have RMLOADed the f.p.e. (version 2.40 not 
the earlier one, which won’t work). It uses the f.p.e. 
to find the square root of 10 to 18 significant figures. 
Start the code at address & 10000. In the hex field 
enter the code “EE08810F’, the mnemonic 
displayed is the f.p. mnemonic “MVFE F0,#10.0“ 
which moves the value 10.0 into the f.p. register FO. 
In the next line, address & 10004, enter 
“EE489100” which gives the f.p. mnemonic 
“SQTE F1,F0”, for placing the extended double 
precision square root of the number held in FO into 
FI. “E28F0004” in address & 10008 places the 
address & 10014 in the ARM register RO, which, 
together with the next two words, will be used to 
store the answer. Enter “ECC09100” into address 
&1000C: this code transfers the calculated square 
root (held in FI) as Packed Binary Coded Decimal 
into the address held in RO, i.e. into & 10014 and the 
next two words. Finally “E1A0F00E” in &10010 
will return control to BASIC. Press <Retum>, 
CALL the code and save the file as “Root” with a 
savefilesize of &20. The dissembled code (line 
1800) from address & 10014 will show the numbers 
000003162277660168379332. This should be 
interpreted as 3.162277660168379332 and is the 
square root of 10 correct to about 18 sig. figs. 

The program “Memory02” includes the procedure 
PROCfloatingpoint (line 20000) in which lines 
20030 to 20050 are designed to “trap” and 
“assemble” the f.p. codes of the “Root” program to 
be entered as f.p. mnemonics. Clear the memory 
from & 10000, enter into the mnemonics field 
“MVFE F0,#10.0” being careful to have 4 spaces 
between the E and the F. Press the down arrow and 
the machine code “EE08810F’ should appear. 
Similarly, the mnemonic “SQTE F1,F0” will 
produce “EE489100” through line 20040 of the 
program. In the next line type “ADR 
R0,buffer%+&14” which is the mnemonic for 
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“Place in the register R0 the address of 
buffer%+&14 (i,e. &10014) relative to the current 
address”. Note that & 10014 is the address where the 
answer w ill be stored. The disassembled mnemonic 
is “ADD R0,PC,#4” (see Peter Cockerell’s book for 
details). The final two mnemonics of the program 
are “STFP FI JR0],#O" and “MOV PQR14” The 
program can now be run and stored to provide the 
same answer as before. 

In Conclusion 

Well, hopefully you have learned quite a bit more 
about the debugger command * Memory I (and the 
rather less useful *MemoryA) as well as about self¬ 
modifying programs. If you have typed in 
“MessageOl” then you can assemble, modify, run 
and save its code from within “Memary02”: I feel 
sure you can see the potential of this method. For 
those of you buying the disc from Norwich 
Computer Services there are also two programs 
“&.SourceCode.Header01” and “02” for 
generating simple relocatable module headers. 
These can be used as stand alone programs which 
create and RMLGAD a complete module or they 
can be used as LIBRARY functions with 
“Memory02”. If you have a machine code program 
without source code, you will be able to use 
“Memory02” to modify it once you have decided 
how it works. Finally, the program has the potential 
for extending PROCfloatingpoint to “assemble” 
the whole set of f,p, mnemonics. 

For my part, 1 would like some feedback through the 
magazine. Has anyone found a clever, legal way of 
using the BASIC assembler to assemble a single 
line of code without using a self modifying 
program? Can the “look-up” table in the debugger 
which converts code to mnemonics be used in 
reverse to generate c ompiled code? This would help 
with the f.p. mnemonics. 

J shall have a short rest and wail for comments 
before embarking on the use of the debugger’s 
breakpoint and showregs commands. See you in a 
month or two! El 


30000 REM > &.SqurceCode.MessageQ1 

30010 REM Author : G L Fitton 
30020 REM Copyright:ABABCUS TRAINING 
30030 REM Version 1,00:31/3/1988 
30040 : 

30060 REM The source code for a 

simple machine code program 

30070 : 

30080 DIM codeS £200 

30090 endofcode%=FN_Me ssage01(code%) 

30100 OSCLirSAVE & . Ob jectCode„ 

MessageOl r, +STR$~ {code%) +" 
" + STR$ - (endofcode%) ) 
30110 *SETTYPE fi.ObjectCode,MessageOI 

6FFC 

30120 *STAMF ObjectCode,MessageOl 

30130 END 
30140 : 

30160 DEF FN_Message01(start%) 

30180 LOCAL sp,pass% 

30190 LOCAL code 
30210 : 

30220 LOCAL ERROR 

30230 ON ERROR OSCLI ("FX 3,D ,f ):VDU 
26,12:REPORT:PRINT " at line u ;ERL 

;STOP 

30240 s 

30250 REM Use the BASIC Stack, 

30260 sp = 13 :REM Stack pointer, 
30270 : 

30280 FOR pass% — 0 TO 3 STEP 3 
30290 P%=start% 

30300 [OPT pass% 

30310 ,code 

30320 STMFD (sp)!, { R0-R12,Rl4} 
30330 SWI "XOSNewLine" 

30340 SWI "XOSJWriteS" 

30350 EQOS "Watch this space,,,,,. 


30360 EQUB 0 

30370 ALIGN 

30380 SWI ,r XOS_NewLine" 

30390 LDMFD (sp)!,(RQ-R12,PC} 
30400 ] 

30410 NEXT pass% 

30420 =F% 


(The problem with these program listings is that to get the self-modifying effects Gerald speaks of, you need to type 
it in exactly as he did. However, for reasons of space 1 have had to reduce the listings by cutting out spaces etc. If 
you want a copy oj the programs and begrudge spending £3 for the program disc, send a formatted disc and a return 
envelope and we will copy these listings for you as supplied by Gerald. Ed.) 
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100 REM > & * Ba s icP r og s . Memo ry 0 2 

110 REM Author * G L Fitton 
120 REM Copyright: ABACUS TRAINING 
130 REM Version 1*03:1/4/1988 
140 : 

160 ON ERROR PROCerror 
170 MODE 3 
180 : 

200 apDS% = 11:REM Cursor position 
210 avpos% = 10:REM when altering 

memory in ASCII 

220 hpos% = 24-(apOS%“ll)*2;REM 

Position of cursor 
230 hvpos% = avpos%:REM when 

changing memory in hex 
240 mpos% = 29iREM Cursor position 
250 mvpos% = avpos%:REM when 

changing assembler mnemonics 
260 display%= FALSE :REM Redisplay 
on screen when TRUE * 
270 tab% = 0;REM ASCII, hex or 

mnemonic field* 

260 step% =f 1:REM Size of Step 

through memory 
230 dir$=BTRING$(10, " ") 

300 loadfilename$=STRING$(10, u ") 

310 savefilename$=STRING$ {10," ° } 

320 load%=FALSE 

330 save%-FALSE 

340 call%=EALSE 

350 buffersize%~&l00 

360 buffersize$=STR$~(buffersize%) 

370 savefilesize%=buffersize% 

380 : 

1000 REM Core Section of Program 
1010 REM Many of these routines 

should be replaced by Procs 
or Fns 

1020 : 

1040 *EX 
1050 REPEAT 

1060 PRINT 1 "Please select, the 
directory you want, 
1070 INPUT "or press <Return> 

for current* M dir$ 
10 8 0 IF dir$<>"" THEN 
1090 PRINT 

1100 OSCLI ( ,f DIR "+dir$) 

1110 OSCLI("EX”) 

1120 ENDIF 
1130 UNTIL dir$="" 

1140 : 

1150 INPUT '"Name of file to load, 

press <Return> for none* " 
loadfilename$ 

1160 IF loadfilename$= ,rn THEN 


1170 load%=FALSE 
1180 ELSE load%=TRUE 
1190 channel%=OPENIN (loadfilename?) 
1200 loadfilesize%=EXT#channel% 
1210 PRINT "loadfilesize% - & n ; 

STR$~(loadfilesize%) 
1220 CLOSE#channel% 

1230 ENDIF 
1240 : 

1250 PRINT '"The buffer size is 

buffersize$; 

1260 INPUT "* Press <Return> or 

enter new size £" buffersize$ 
1270 IF buffersize$<>"" buffersize% 
-EVAL ("& ,r +buffersize$) 
1280 DIM dummy1% 0 
1290 DIM dummy2% (&FFD8-dummy1%) 

:REM Makes the buffer start at 

&1Q000. 

1300 DIM bufferi bufferslze% :REM 

Reserve space in memory. 
1310 start% = buffer%:REM Start of 

display. 

1320 : 

1330 IF load%=TRUE THEN OSCLI 

("*LOAD " + loadfilename$-H" " + 
STR$~(buffer%)) 

1340 : 

1350 PRINT *"Name the assembler code 
file to load into LIBRARY (and 
buffer)*" 

1360 INPUT "Or press <Return> for 

none. " libraryfilenameS 
1370 IF libraryfilename$o iT " THEN 
1380 LIBRARY libraryfilenameS 

13 90 filelengthi-EVAL( ,f FN_" + 

libraryfilename$ + " (buffer% 
]")-buffer% 

1400 PRINT *"filelength% = ; 

STR$- (f ilelength%) 
1410 PRINT 1 "Press any key to 

continue, ,T 

1420 wait$=GET$ 

1430 ENDIF 
1440 : 

1450 REPEAT 

14 60 quit%=FNntodify : REM Modify 

bytes in memory. 
147 0 UNTIL quit%=TRUE 
1460 CLS 
1490 : 

1500 PRINT 1 "Do you want to CALL the 
code before it is saved? (Y/N) T,t 
1510 yesno$-GET$ 

1520 IF INSTR ( ,T Yy" , yesno$) THEN cal.1% 
=TRUE ELSE call%=FALSE 
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1530 IF call%=TRUE THEN 
154 0 CALL buffer % 

1550 PRINT 1 "Press any key to 

continue. U1 

1560 wait $=GET$ 

1570 ENDIF 
1580 : 

1590 REM Save modified file to disc 

1600 *EX &.QbjectCode 

1610 INPUT f "Name of file to save, 

press <Return> for none. Tl 
savefilenames 

1620 IF savef ilename$= TI " THEN 

save%=FALSE ELSE save%=TRUE 
1630 IF save%=TRUE THEN 
1640 PRINT '"The savefilesize% is 
& ,f ; STR$- (buffersize%) ; 
1650 INPUT Press <Return> or 

enter new size &" 
savefllesize$ 

1660 IF savefilesizeSO"" THEN 

savefilesizel —eval (" & " 
+savefilesize$) ELSE 
savefile$ize%=buffersize% 

1670 CLS 

168 0 OSCLI{"*SAVE &.ObjectCode .." + 
savefilename$+" "+STR$- 
[buffer%)+ "+ rt +STR$~ 
(savefilesiJ 5 e%) +" 0 0”) 
1690 GSCLI {"SETTYPE £ .Ob jectCode ." 

+savefilename$+" &FFC") 
1700 OSCLI("STAMP &.ObjectCode." 

+savefilename$) 

1710 print "The file called 

& . Ob jectCode . ,r ; savef ilename$; 

" now contains; - " 
1720 OSCLI("DUMP £.ObjectCode. u 

+ savefilename$) 

1730 PRINT 
1740 ELSE 
1750 CLS 
1760 ENDIF 
1770 ; 

1780 PRINT T "Press any key to 

continue." 

1790 wait $=GET$ 

18 00 PRQCmemory("I ",buffer%, 

savefilesize%, 0, OJ 
1810 PRINT '"Press any key to 

continue." 

1820 wait$—GET$ 

1830 CLS 
1840 END 
1850 : 

10000 DEFPROCerror 
10010 CLOSE#0 


10020 *FX 4,0 
10030 CLS 
10040 REPORT 

10050 PRINT " at line ";ERL 
10060 END 
10070 : 

10080 ENDPRQC 
10090 s 

10200 DEE PROCmemory (type?,pstart% 

,length%,x%, y%) 

10210 REM Displays block of memory, 
10220 LOCAL command$ 

10230 CLS 

10240 PRINT TAB(x% f y%);*Address 

ASCII Hex Code Assembler 
Mnemonics" 1 

10250 command$ = "Memory T, +type$ + " " + 

STR$~(pstart%)+" +"+STR$~ 
(length%) 

10260 OSCLI(command?) 

10280 ENDFROC 
10290 ; 

10300 DEF FNalterASCII(RETURN apQS%, 

RETURN avpos%) 
10310 REM Lets user change the memory 
10320 local key%,key$ 

10330 ; 

10340 REPEAT 


10350 

PRINT TAB (apos%, avpos%) ; 

10370 

REM Cursor keys take CHR$ 

values 

10380 

*FX 4,1 

10390 

key%=GET 

10400 

*FX 4,0 

10410 

key$-CHR$(key%) 

10420 

IF INKEY(-1)= TRUE THEN 

Step%=B ELSE step%=l 

10430 

IF key%>31AND key%<!27 THEN 
PROCinsertASCII(key%, apOS% 
,avpos%) 

10440 

IF key%=13,6 THEN apos%=ap#s%-1 

10450 

IF key%=137 THEN apds%=apGS%+l 

104 60 

IF key%=138 THEN start%= 

start% + 4*step%: 
display%=TRUE 

10470 

IF key%=139 THEN start%= 

start% - 4*step% : 
display%=TRUE 

10480 

IF key%=9 THEN tab%=(tab%+l) 

MOD3:display%=TRUE 

10490 

IF key%= 13THEN quit% -TRUE 

:display%-TRUE 

10510 


10520 

IF apos%-10 THEN apos%“14; 

start%=start% - 4: 
display%=TRUE 
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10530 IF apos%=15 THEN apos%=ll: 

start%=start% + 4: 
display%—TRUE 

10540 : 

10550 UNTIL d±sp1aY%=TRUE 
10560 display%-FALSE 
10580 =quit% 

10590 : 

10600 DEF PROCinsertASCII(key%, 

RETURN apos%,RETURN avpos%) 
10610 REM Modifies the memory and 

prints to the screen. 
10620 LOCAL key$,hex$ 

10630 key$=CHR$ (key%) 

10640 hex$=R!GHT$("00"+STR$-(key%),2) 
10650 ?(start%+£20+apos%“ll)-key% 
10660 PRINT key$;TAB(26-£apos%-10) 

*2,avpos%);hex$; 

10670 apos%=apos%+l 
10680 ENDFROC 
10690 : 

10700 DEF FNchangehex(RETURN hpos%, 

RETURN hvpos%) 

10710 REM Lets user change memory. 
10720 LOCAL key%,key$ 

10740 REPEAT 


10750 

PRINT TAB(hpos%,hvpos%); 

10770 

REM Cursor keys take CHR$ 

values 

10780 

*FX 4 f 1 

10790 

key%~GET 

1C3C0 

*FX 4,0 

10810 

key$=CHR$(key%) 

10820 

IF INKEY(-1) THEN step%=8 

ELSE step%=l 

10830 

IF INSTR ( ,T 012 345 678 9ABCDEF T ’, 
key$) THEN FROCinserthex 
(keyS,hpos%,hvpos%) 

10640 

IF key%=l36THEN hpos%=hpos%-2 

10850 

IF key%—137THEN hpos%=hpos%+2 

10660 

IF key%=136THEN start%=Start% 
+ 4 *st ep%:display%=TRUE 

10870 

IF key%=l39THEN start%=start% 
-4*step%:display%-TRUE 

10680 

IF key%—9THEN tab%=(tab%+l) 

MOD3;display%=TRUE 

10890 

IF key%= 13 THEN quit%=TROE 

idisplay%=TRUE 

10910 

; 

10920 

IF hpoS%=l6 THEN hpos%=24; 

start%=start% - 4: 
display%=TRUE 

10930 

IF hpos%=26 THEN hpos%=l8: 

start%=start% + 4: 
display%=TRUE 

10 940 



10950 UNTIL display%=TRUE 
10960 display%=FALSE 
10980 =quit% 

10990 : 

11000 DEF FROCinserthex(key!$,RETURN 
hpOS%rRETURN hvpcs%) 
11010 REM Modifies the memory and 

prints to the screen. 
11020 LOCAL key2$,hex$ 

11030 PRINT keyl$; 

11040 REPEAT 
11050 key2 $-GET$ 

11060 IF INSTR("0123456789ABCDEF" 

,key2$)=0 THEN VDU 7 
11070 UNTIL INSTR ("0123456789ABCDEF" 

r key2$) 

11080 PRINT key2$ 

11090 hex$=keyl$+key2$ 

1110 0 hex%=EVAL ( ,, & t, +hex$) 

11110 IF hex%>3! AND hex%<127 THEN 

char$=CHR$(hex%) ELSE 
char$="." 

11120 PRINT TAB(14-(hpos%“18)DIV2, 

avpos%);char$; 

11140 ?(start%+&20 - (hpos% — 24)DIV2) 

=hex% 

11160 hpos%=hpos%+2 
11180 ENDFROC 
11190 : 

11200 DEF FNmodify 

11220 PROCmemory{ T, I ", start% f & 40,0, 0) 
11230 PROChelp 
11240 CASE tab% OF 
11250 WHEN 0 

11260 ap0S%=ll“(hpos%-24)DIV2 
11270 quit%=FNalterA5CII{apos% 

t avpos%) 

11280 hpos% = 24-(apos%-ll)*2 

11290 WHEN 1 

11300 hpos% « 24“(apos%-ll)*2 

11310 qu±t%=FNchangehex(hpos% 

,hvpos%) 

11320 apos%=ll-(hpos%-24)DXV2 
11330 WHEN 2 
11340 mpos%=29 

11350 mnemonic$=FNreadmnemonic 

(mpos% f mvpos%J 

11360 quit%=FNchangemnemonic 

(mpo s % r mvpos%) 

11370 ENDCA5E 
11380 =quit% 

11390 : 

11400 DEF PROChelp 
11410 PRINT TAB(0,21); 

11420 PRINT "Press cursors to move 

through memory." 
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11430 PRINT 
11440 PRINT 

11450 PRINT 
11460 PRINT 


"Press <Shift> with 
cursors to move faster." 
"Press <Tab> to toggle 
between ASCII, hex and 
assembler mnemonics." 
"Enter changes at cursor 
in ASCII or hex. "; 
"Press <Return> to 

finish."; 


11480 ENDPROC 
11490 : 

11500 DEF FNreadmnemonic 

(mpos%,mvpos%) 

11510 LOCAL pos%,chr%,mnemonic$ 

11520 PRINT TAB(mpos%,mvpos%); 

11530 FOR pos%=mpos% TO mpos%+49 
11540 SYS "OS_Byte",135 TO , chr% 
11550 mnemonic$=mnemonic$+CHR$ 

(chr%) 

11560 VDU 9 
11570 NEXT pos% 

11580 ^mnemonics 
11590 : 


11600 DEF FNchangemnemonic(RETURN 

mpos%,RETURN mvpos%) 
11610 REM Lets user change memory. 
11620 LOCAL key%,key$ 

11630 : 

11640 REPEAT 

11650 PRINT TAB(mpos%,mvpos%) ; 
11670 REM Cursor keys take CHR$ 

values 


11680 *FX 4,1 
11690 key%=GET 
11700 *FX 4,0 
11710 key$=CHR$(key%) 

11720 IF INKEY(-1) THEN step%=8 

ELSE step%=l 

11730 IF key%>31 AND key%<127 THEN 
PROCinsertmnemonic(key$ 
,mpos%,mvpos%) 
11740 IF key%=136THEN mpos%=mpos%-l 

11750 IF key%=137THEN mpos%=mpos%+l 

11760 IF key%=138THEN PROCassemble 

:start%=start%+4*step% 
11770 IF key%=139THEN PROCassemble 
:start%=start%-4*step% 
11780 IF key%=9THEN PROCassemble 

:tab%=(tab%+l)MOD3 
11790 IF key%=13 THEN PROCassemble 

:quit%=TRUE 

11810 : 

11820 IF mpos%=28 THEN mpos%=78: 

PROCassemble:start%=start%-4 


11830 

11850 

11860 

11880 

11890 

11900 

11910 

11930 

11950 

11960 

11970 

11980 

11990 

20000 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

20080 

20090 

25000 

25010 

25020 

25030 

25040 

25060 

25070 

25080 

25090 


IF rapos%=79 THEN mpos%=29: 
PROCassemble:start%=start%+4 
UNTIL display%=TRUE 
display%=FALSE 
=quit% 

DEF PROCinsertmnemonic(key$ 

,RETURN mpos%,mvpos%) 
REM Modifies the memory and 

prints to the screen. 
MID$(mnemonics, (mpos%-28), 1) 

=key$ 

PRINT TAB(29,mvpos%);mnemonic$; 

mpos%=mpos%+l 

PRINT TAB (mpos%,mvpos%); 

ENDPROC 

DEF PROCfloatingpoint 
REM A skeleton FP assembler 
CASE LEFTS(mnemonics, 19) OF 
WHEN "MVFE F0,#10.0 " : 

! (start%+&20)=&EE08810F 
WHEN "SQTE F1,F0 " : 

!(start%+&20)=&EE489100 
WHEN "STFP FI,[R0],#0 " : 

!(start%+&20)=&ECC09100 

ENDCASE 

display%=TRUE 

ENDPROC 

DEF PROCassemble 
LOCAL ERROR 
ON ERROR LOCAL 

PROC floatingpoint:ENDPROC 
$(TOP-&43)=LEFTS(mnemonics,50) 
display%=TRUE 
P%=start%+&20 
[OPT 0 
.store 

tiiSrftrfttritrtitittrrrrrti 


25100 ] 

25110 ENDPROCH 
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Keith Milner 
Introduction to Fonts 

Bundled with the Archimedes is a system which 
allows a variety of typefaces, or “fonts” to be 
loaded in and painted on the screen. The Acorn 
font system allows any size (within reason) of 
character. What is more, the characters are 
proportionally spaced (this means that for 
instance the letter *r 9 takes up less space than the 
letter ‘m’), and may be justified. 

The Acom fonts are also anti-aliased. This is 
where the edges of a shape are 'fuzzed' which 
creates the impression of a higher screen 
resolution and makes the characters easier to 
read, especially when using small point sizes. It 
has the disadvantage that larger point sizes look 
a bit ugly. (Point size is a typo-graphical term 
used to describe the size of the characters.) 

There are several parts to the Acom font system: 
there is a font designer to enable you to create the 
fonts; there is the anti-aliasing program to 'fuzz* 
the edges; there is the font manager to handle 
access to the fonts; and finally the font painter 
draws the font on the screen. The first two are 
supplied on the Welcome disc, the second two 
are built into the operating system (on 1.2 
upwards). This article covers the use of fonts in 
your own programs. 

Preparation 

Before leaping into using fonts, you will need to 
prepare a disc containing the font files. (Or 
purchase the program disc!) If you are using a 
single disc system, don't try to *COPY the 
FONTS folder because you will find it needs 
about 16 swaps of source and destination disc. 
The easiest way is to backup the Welcome disc 
onto a freshly formatted blank disc. This is done 
by exiting from tire desktop and typing: 
*B ACKUP 0 0 Q. Then go back into the desktop 


with *DES. or somesuch, and delete all but the 
FONTS folder. This is done by marking each of 
the other folders by clicking on each one with the 
select button, then pree <menu> and select 
Delete and then confirm each deletion in cum. 

The next job is to create a new directory for the 
programs, either by pressing <menu> and 
selecting “New dir” or by exiting from the 
desktop and typing *CDIR &.FontProgs. 

You are now left with a working disc containing 
the font files within the directory “fonts” and a 
directory “FontProgs” to put the programs into. 

Getting Started 

Before we use the fonts, we need to know what 
styles are available to us. One of the commands 
built into the font manager is FONTCAT. This 
gives a description of all the font files within any 
directory . To use it just type : 

*FONTCAT fonts 

On my version of the Welcome disc, this gives 
the following output: 

Corpus-Medium 
Trinity.Medium 

To save the bother of specifying a directory 
every time that FONTCAT (or indeed any other 
font command) is used, a prefix may be set. This 
is done by typing: *SET FontSprefix &.FONTS 

Once this is set, you can just type *FQNTCAT 
to obtain a list of available fonts. 

Managing Fonts 

This is done automatically by the font manager 
module. When you ask the manager to “find 71 a 
font, it will search the disc for the specified font 
files (in the directory specified by FontSprefix). 
If it finds the file, it loads information about the 
font and where it may be found on the disc into 
an area of private memory called the “cache”. 
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line 90 sets up the font prefix as described 
line 120 the name of the font to be used 
line 150 sets the x and y point sizes of the font 
to be used 

line 180 sets the resolution of the screen 
line 210 asks the manager to load the font 
information using the data set up in 
the previous lines 

line 230 selects 640 x 256 16 colour mode 
line 260 onwards, sets up the anti-aliasing 
transfer levels. 

line 410 onwards, sets up the anti-aliasing 
palette 

line 590 gives the string to be painted 
line 620 paints the font onto the screen 


When you ask the font system to display some 
characters in that font, the manager will load a 
block containing the required characters into the 
cache. Only the parts of the character set which 
are needed are loaded in. This maximises the 
memory available to other fonts. If you try to 
load in more fonts than the cache has room for, 
the manager will erase a previously used font. 
Next time you try to access that font, the 
manager will have to load it in again. 

You may set the cache size by typing: 
^CONFIGURE FONTSIZE n 

where n is the number of pages you require. On 
the 300 series each page is 8K. A good value to 
set it to for this tutorial is 10 (this reserves 80K). 
400 series owners may set this number to 10 as 
well. This actually reserves 320K on a 4M 
machine, but with that much memory to play 
with, what's 320K? 

After setting this value, the machine should be 
reset with <ctrl-break> before further use. 

Font Demonstration Program 

By now, you will be itching to get something on 
the screen. Type in listing 1 (Font_demo) and 
run it. This will paint a message on the screen in 
one of the fonts. Notice how slowly this 
happens. This is because the font is being drawn 
in from the disc. If you run the program a second 
time, the message will be painted immediately - 
the font has been stored in the cache and is thus 
available for instant access, 

You may discover which fonts are known to the 
font manager by typing: *FGNTLIST 

This displays a list of all the recognized fonts 
with information about their size and usage. 

The program listing has been made deliberately 
long in order to show the function of its various 
parts. In practice, this program could be 
considerably shortened. The functions of the 
various parts of the program are summarized: 


Now we need to look in more detail at the main 
features of this program. 

Point Sizes 

The size of the character is determined by its 
point size. One point is 1/72 of an inch. The font 
system allows you to specify point sizes to 
within 1/16 of a point (i,e. 1 /1152 of an inch). It 
also allows you to specify different X and Y 
point sizes to give, for instance, tall thin 
characters. Try setting x_points to 20 in program 
1, Font_demo. 

This seems to give an almost infinite range of 
sizes from one font style. There is however one 
catch. The fonts are internally stored in several 
standard point sizes. If you display a font in one 
of these sizes, it will be loaded in as stored If, 
however, you choose a point size for which there 
is no data stoned, the font manager will make 
sensible “guesses” about what the character 
should look like. This docs result in a slight 
reduction in quality but in practice this is not 
usually obvious. Larger point sizes, however, do 
look ragged and should be avoided. 


This specifies the resolution (in pixels per inch) 
of the screen. In normal use die default value of 


Screen Resolution 


38 


Archive May 1988 








Using Anti-Aliased Fonts 


X-90, Y=45 will be used. If however a higher 
resolution monitor (a multi-sync, say) is used, 
changing this value will maintain the correct 
aspect ratio for the characters. For instance, in 
mode 20 (640x512) you could use X=90, Y=9Q. 
Apart from this, there is little practical purpose 
in altering these numbers. When you load a font, 
the manager will look for a file containing data 
in the resolution you specify. If it can Find none, 
it will take the data for the nearest equivalent 
resolution and use that. Currently only data for 
X=90, Y=45 is supplied on the Welcomedisc, so 
changing these numbers achieves little. 

Find Font 

This is a SYS call to the font manager. I have 
chosen to pass the data as variables, as it is much 
neater. If desired, however, the data could be 
passed directly, as follows: 

180 SYS 1 Tont_FindFont' \, ,T Trinity.Medium' ‘ 
,40*16,40*16,0,0 TO Trinity % 

The font manager allocates a number or 
“handle” to the font, so that it may easily be 
referred to at a later date. This is passed back 
from the routine into a user-specified variable. I 
have called this Trinity % for obvious reasons. 

Transfer Level & Anti-aliasing Palette 

This requires an understanding of how the an ti¬ 
aliasing is achieved. Running the second 
programs, Anti_alias, will give a graphic 
demonstration of this: a message in 40 point 
Trinity font is displayed with the first letter “A” 
magnified. The characters are stored with 16 
levels of intensity, called “transfer levels” 
varying from die background colour, in this case 
cyan, to the foreground colour, which I have 
defined to be black. When the font is painted 
onto the screen, the computer assumes that the 
palette has been set up to give this graduation, 
assigning the background to colour 0, the 
foreground to colour 15, and all the transfer 
levels in between to the intermediate colours. 


In Anti-alias, the characters have been painted 
before the palette was correctly set up. With the 
default palette for this mode, the character 
appears surrounded by multi-coloured and 
flashing blocks. Pressing the space bar will 
toggle the anti-aliasing palette on and off so that 
you can see the relationship between the 
intensity levels and the colours. 

There are, however, cases where you don't wish 
all 16 colours to be used. In this case you may 
override the default values and specify that only 
8 or 6 or any other number of colours will be used 
for anti-aliasing (the minimum you can use is 2 
colours, but the resulting picture is not too 
good!!). This is done with a SYS call which 
specifies how many colour registers to use and 
manually sets the transfer level for each one. A 
more limited version of this call is available at 
present as a VDU sequence, but Acorn have 
made it clear that future versions may not 
include any of the font VDU calls, For this 
reason, I am sticking firmly to using SYS calls. 

You may set the transfer level s to any values you 
wish hut it is nomial to set them so that the 
colours cover all 16 transfer levels evenly. 
Running the third program, Trans_levs, will 
draw a series of bars showing such values of 
transfer function for 16 (default), 8 and 4 
colours. The SYS call is made with a table of 
values stating how many colours are to be used 
and the transfer level for each colour. When 
specifying the number of colours, you actually 
specify the “colouroffset”. What this amounts to 
is that the font system always assumes you will 
need one background and one foreground 
colour. You specify how many you will need 
above this. e.g. to specify 8 registers, you set the 
colour offset to 6. The best method to generate 
such a table is via a DIM statement. We can then 
insert the name of the block of reserved memory 
directly into the SYS call. 


Archive May 1983 


39 






Using Anti-Aliased Fonts 


We may now define the anti-aliasing palette. To 
do this we must decide what colour the 
foreground is to be, what colour the background 
will be and which registers we wish to use. If you 
are using, for instance, 4 colour registers for 
anti-aliasing, you may specify to use colour 0 as 
the background colour and colours 8 to 10 as the 
three foreground colours. The format of the SYS 
call is: 

SYS"Font_SetPalette”,,bcol_reg, 
fcol_reg,fcol_offset,bcol,fcol 

where bcol_reg is the background colour 
register 

fcol_reg is the 1st foreground register 

fcol_offset is the number of additional colour 
registers to use 

bcol is the physical background colour 
fcol is the physical foreground colour 

The physical colours are passed as a 32 bit 
number which contains information about the 
red, green, and blue components of the actual 
colour you want. This is stored as a hex number: 

&BBGGRR00 

where BB, GG, & RR are hex numbers 
representing the blue, green, and red 
components of the desired colour. As an 
example, if the background colour is to be cyan 
(RED=0, GREEN=&FF, BLUE=&FF) then 
bcol would be &FFFF0000; fcol=&00000000 
means the foreground will be black. If we then 
set bcol_reg=0, fcol_reg=l, and fcol_offset=2 
then the palette will be set up with 4 colours 
ranging from colour 0 being cyan to colour 3 
being black. 

Font Paint 

Finally, after all of this we can display the 
message on the screen. This is done using the 
SYS call at line 620 of the original Font_demo 
program. This takes the following form: 


SYS"Font_Paint" / ,message$,type 

, xjpos, y__pos 

where message$ is the string to be painted, 
type specifies the type of painting to be done. 

x_pos & y_pos are the x/y screen positions to 
paint the message. 

The plot type is a byte containing several flags 
which specify how the font should be painted on 
the screen. The bits defined are as follows: 

Bit Action 

0 Justify text 

1 Rub-out box required 

2 Use absolute co-ordinates 

4 Co-ordinates are OS co-ordinates 

The absolute co-ordinate bit specifies whether 
the font will be painted at the absolute position 
specified by x_pos and y_pos, or whether it will 
be painted at x_pos, y_pos relative to the current 
graphics cursor position. This option, however, 
appears not to function. Absolute coordinates 
are used whether this bit is set or reset. 

If OS co-ordinates are not specified, then x_pos 
& y_pos must be given in units of 1/72000 of an 
inch, otherwise the normal PLOT co-ordinate 
system must be used (1280x1024). 

The final program, Paint_typc, gives an 
example of using rub-out and justify. If rub-out 
is specified, before the string is painted, the font 
painter will erase to background colour an area 
of screen. This area is specified by performing a 
MOVE to the two opposite comers of the 
rectangular area you wish to be cleared. If justify 
is required, you must specify the right margin to 
justify to. This is done by performing a single 
MOVE to the right margin position. NOTE that 
this MOVE should have the same Y value as the 
string you wish to plot. If this is not so, the text 
will “creep” vertically. Try, for instance, 
changing listing 4 line 410 from MOVE 900,260 
to MO VE900,100 and see what a mess it makes! 
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If you wish to use both nib-out and justification, 
you must perform die rul>out MGVBs first, 
followed by the justify MOVE and then paint the 
string. 

It is worth mentioning that none of these calls 
take the length of the string into account. If the 
string is too long, it will either disappear off the 
edge of die screen, or if justifying, overprint 
itself! There are ways to deal with this, 
automatically splitting strings into paintable 
chunks but I will not cover this for the moment 
as it is quite complex. 

How do you know what size of rub-out box you 
should use? Well, you can either guess or you 
can use SYS"Font_StringBBQx" which returns 
the X & Y size of a rectangle which exactly 
surrounds the string in 1/72000 of an inch. You 
can then convert these to OS coordinates for 
plotting purposes: 

SYS"Font_StringBBox",,S$ TO 

/,,xp%,yp% 

SYS f, Font ConverttoOS",,xp%,yp% 

TO f x%,y% 

x%, and y% will be returned in standard 
coordinate units. These can then be used for the 
rub-out box. It is probable that a small margin 
will be needed around the box, so bear this in 
mind and add on a few pixels when performing 
the MOVEs. 

Using more than one font 

So far I have just explained ho w to use one font 
at a time. You may, however, wish to use more 
than one style or size of font at a time. This is 
where the “font handle” comes in. This is 
assigned by the font manager when 
SYS”Font_FindFont” is called and uniquely 
identifies the different fonts. To specify which 
font to use, there is a SYS caH: 

S YS”Font_SetFont” Jont-handle 


where font-handle is the number of the font as 
allocated by the manager. Examining the third 
program, Trans_levs, will show its use. 

Now it's up to you 

You should now be able to incorporate fonts in 
your own programs. Start off with some simple 
programs of your own and don't be afraid to 
experiment - it's the best way to learn. 

10 REM >$.FontFrogs.Font_denio 
20 REM Anti-aliased font demo 
30 REM by Keith Milner 
4 0 REM 

50 REM Reserve a block of memory 

for threshold definitions 
60 DIM threshold 5 * 17 
70 

B0 REM Set font prefix so the font 
manager knows where fonts 
are on disk 

90 *SET Font$prefix Fonts 
100 

110 REM Choose font to be displayed 
120 font$ = i, Trinity .Medium" 

130 

140 REM Choose font point size 

150 x_points=40:y_points-40 

160 

170 REM Choose screen resolution 

(0 gives default x=90,y=45) 
180 x_res=Q: y_res=0 
190 

200 REM Ask manager to find the font 
210 SYS n Font_FindFont", f font$ 

t x^points * 16 f y__points*16, x_res 
f yres TO trinity% 

220 

230 MODE12 : REM 16 colour mode 
240 

250 REM Set up threshold table for 

anti-aliasing 
260 n_cols%=8 : REM number ofcolours 
to be used in anti-aliasing 
270 ?threshold%=n_cols%-2 

iREM colour offset (Foregnd £ 
backgnd assumed) 
280 threshold%?1=2:REM 1st threshold 

value 

290 threshold%?2=4 ;REM 2nd 


Archive May 1938 


41 






Using Anti-Aliased Fonts 


300 threshold%?3=6 


310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

42 0 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 
5 60 

570 


580 
590 
600 
610 
62 0 


thresftold%?4=8 
threshold%?5=l0 
thresho1d% ? 6=12 
threshold%?7=14 
?threshold%=&FF 


:REM 3rd 
threshold value 
:REM 4th 
:REM 5th 
:REM 6th 
:REM 7th 
:REM End of 

table marker 


630 END 


REM Pass threshold table to font 

system 

SYS u Font_SetThresholds T ',, 

threshold% 

REM Set up colours and registers 

to use 

bcol_reg%=0 :REM background 

colour register 

bcol_R%=0 :REM background RED 

component 

bcol_G%=&FF :REM background 

GREEN component 

bcol_B%=£FF ; REM background 

BLUE component 

fcol_reg%=l :REM 1st foreground 
colour register to use 
fcol_offset%=n_cols%-2 r REM 

foreground colour offset 
fcol_R%=0 * REM foreground RED 

component 

fcol_G%=0 :REM foreground 

GREEN component 
fco1 B%=0 :REM foreground BLUE 

component 

REM convert RGB levels to a 32 

bit no. &BBGGRR00 
bcbl%={bcol_R% « &Q3)+tbcol_G% 
« a10> + {bcol_B% « &18) 
fcol%=(fcol_R% « &Q8)+{fcol_G% 
« £10) +(fcol_B% « &18) 

REM Pass data to font system to 
set up palette 
SYS ,r Font_SetPalette", , 
bcol_reg%, fcol_reg%, fcol_offset% 

, bCOl%jr f COl% 

message$="An anti-aliased font” 

REM Paint message on screen 
5YS"Font_Paint", f messages, &1G, 0 

, 700 


10 REM >$.FontFrogs.Anti_alias 
20 REM Anti-aliasing demo 
30 REM by Keith Milner 
4 0 REM 

50 DIM threshold% 17 

60 *SET FontSprefix &.Fonts 

70 SY S n Font_F indF ont" , , ,T Trinity. 

Medium",40*16,40*16,0,0 
TO trinity% 

80 SYS"Font_FindFont",,"Trinity. 

Medium",300*16,300*16,0,0 TO 
close up% 

90 - 

100 MODE12 i REM 16 colour mode 
110 

12 0 FORT %=1TOl5:COLOURT%:PRINT 

"Colour ”;T%:NEXT 

130 ?threshold%=14 :REM 16 colours 

for anti-aliasing 

140 FOR T%=1T015 

150 threshold%?T%=T% :REM colours 
1-15 for thresholds 1-15 

160 NEXT T% 

17 0 threshold%?16=&FF :REM end of 

block 

180 SYS"Font_SetThreshoids" 

,,threshold% 

190 

200 SYS"Font_5etFont T \ trinity% 

210 SYS ,T Font_Paint 11 , , "Anti-aliasing" 

f £10,500,100 

220 SYS ,T Font_SetFont", close_up% 

2 30 SYS"Font_P aint" , , "A”, &10 f 350,400 

240 GCQL0,7 

250 CIRCLE 530,130,50 

260 CIRCLE 600,600,350 

270 LINE600,250,530,180 

280 REPEAT 

290 REPEATG=GET:UNTILG=13 OR G=32 

300 IFG=13 THEN END 

310 SYS"Font_SetPalette", , 

0,1,14,&FFFFO0QO,&00000000 
:REM set A-A palette 
320 REPEAT G=GET:UNTILG—13 OR G-32 

330 IFG-13 THEN END 

340 VDU20 
350 UNTILFALSE 

10 REM >$.FontProgs,Trans_levs 
20 REM Threshold demo 
30 REM by Keith Milner 
4 0 REM 


42 


Archive May 1988 







Using Anti-Aliased Fonts 


50 DIM threshold! 17 

60 *SET Font$prefix Fonts 

70 SYS"Font_FindFont. n , , "Trinity, 

Medium",20*16,20*16, 0, 0 
TO small% 

80 SYS "F ont_F indFont n , , "Trinity, 

Medium",40*16,40*16, 0,0 
TO large! 

90 MODE12 : REM 16 colour mode 
100 OFF 

110 ?threshold%-l4 ;REM 16 colours 
for anti-aliasing 

120 FORT%=1TG15 

130 threshold!?T!=T% ;REM colours 
1-15 for thresholds 1-15 

140 NEXTT! 

150 threshold!?16=&FF:REM block end 
160 SYS"Fortt_SetThresholds" 

,,threshold! 

170 SYS"Font_SetFalette",, 

0,1,14, &FFFF0000,&0000000 0 
:REM set A-A palette 
180 SYS"FontSetFont",large! 

190 ul$=CHR$(25)+CHR$(250)+CHR$(10) 
200 SYS"Font_Paint",,ul$+"Typicai 

Transfer Levels",&10,150,200 
210 SYS"Font_SetFont", small% 

220 SYS"Font_Faint",,"Anti-aliasing 
Threshold levels",&10,450,920 
230 SYS"Font_Paint",,"No. of",&10,0 

,930 

240 SYS ,T Font_Paint", , "Colours", & 10,0 

, 880 

250 VDU5 

260 FOR T%=0TQ16 

270 X%=250+T%* 60 

280 LINE X%,900,X%,300 

290 IFT%<>16THENMOVEX%+20,900 

:PRINT;T%; 

300 NEXT 

310 LINE0,870,1210,870 
320 VDU4 

330 SYS"Font^SetFont",large! 

340 SYS"Font_Faint",,"16",410,40,750 
350 VD05 

360 F0RT%=QT015:GCOLl,T!:X!=25D+T!*60 
370 RECTANGLEFILLX!,800,60,30 
380 GCOLO,15:MOVEX!+2G, 790 

:PRINT;T%; 

390 NEXT 

400 SYS”Font_Palnt",," 8",&10,40,550 
410 FORT%=OTOl5STEP2:READ C%:GCOLl 

,C%:X%=25QtT%*60 


420 RECTANGLEFILLX!,600,120,30 

430 GCOLO,15:MOVEX!+2G,590 

:PRINT;C%; 

440 NEXT 

450 DATA 0,2,4,6,8,10,12,14 

460 SYS"Font_Paint",," 4",&10,40,350 

470 FORT%=0TO15STEP4:KEAD C%;GCOLl 

, C% : X!==250+T!* 60 

480 RECTANGLEFILLX%,400,240,30 

490 GCOLO,15;MOVEX%+20,390 

:PRINT;C!; 

500 NEXT;VDU4 

510 DATA 0,5,10,15 

520 SYS"Font_SetFont",small! 

530 Y%=12Q 

540 REPEAT READ S$ 

550 S YS"FontP aint",,S$,&10,50,Y% 

560 Y%-=4 0 

570 UNTILY%=0 

580 DATA" Notice how the transfer 

levels are chosen to cover the" 
590 DATA”whole intensity range in 

even steps. " 

600 DATA" These are suggested 

values only." 

610 G=GET:MODE12:END 

10 REM >$.FontProgs. Faint_type 
20 REM Rub-out box & justification 

demo 

30 REM by Keith Milner 
4 0 REM 

50 DIM thresholds 17 

60 *3ET Font$prefix &.Fonts 

70 5YS"Font_FindFont",,"Trinity. 

Medium",30*16,30*16,0,0 
TO trinity! 

80 J 
90 MODE12 : REM 16 colour mode 
100 ?threshold%=6 
110 threshold!?1=2 
120 threshold!?2=4 
130 threshold!?3=6 
140 threshold!?4=8 
150 threshold!?5=10 
160 threshold!?6=12 
170 threshold!?7=14 
180 ?threshold%=&FF 
190 

SYS"Font_SetThresholds N ,,threshold! 
200 SYS"Font_SetPalette",,0,8,6 

,&FFFF0000,SOOOOOOOO 
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21G ul$—CHR$(25)+CHR$(250)+CHR$(4) 

22 0 SYS"Font_Paint n ,,ul$ +"RUB-OUT 

BOXES:", ,&10,0,950 


230 F0RT%=1T0100 
240 GCGLG,RND(15) 

250 CIRCLEFILLRHD(1280),RND(300) 

_ ,KND (200) 

260 NEXT 

270 SY5”Font_Palnt", , "This is text 

without rub-out \l \ " , %1000 0,0 

, 700 

280 S$="This is text with a rub-out 


290 MOVE0,390:MOVE940,460 

300 SYS"Font__Paint", , S$, %1001Q, 0 r 400 

310 MOVE 0, 190: MOVE 900,260 

311 SYS "Fortt_Faint" , , "Press -SPACE- 

to continue.. . °,%1QQ10,0,200 

312 G=GET 
320 CLS 


330 SYS ,T Font_Paint fl , ,ul$ 

+ "JUSTIFICATION;”, 610, Q, 950 
340 SYS"Font_Faint”,,"This is 

unjustified text. It”,%10000,0 

,800 

350 SYS”Font_Paint", , "has a ragged 

right edge%10QQ0,0,730 
360 SYS”Font_Paint ,T , , ”This makes it 
look messy!”,%10000,0,660 
370 MOVE90 0,400 
380 3YS"Font_Paint",,"This is 

justified text. It",%10001,0,400 
390 MOVE900,330 

400 SYS"Font_Faint",,"has its right 
edge aligned",%10001,0,330 
410 MOVE900, 2 60 

420 SYS"Font_Faint”,,"and this makes 
it more tidy,",%1GG01,0, 260 
430 G=GET:CLS 0 


• : 


Art Packages BlView 


Malcolm Banthorpe 

ArtWorker 

Art worker is a graphics program which gives the 
user the facilities of an air- or spray-brush. It is 
a deliberately simple art program without the 
more sophisticated facilities of a program like 
Artisan such as cut and paste and even lacks such 
primitives as lines, circles, rectangles etc. It 
consequently offers little to enhance the limited 
abilities of the non-artist and relies heavily on 
human skill to create visually satisfying 
pictures. The effects produced, though generally 
referred to as “air-brush” in other graphics 
programs, are actually more of a pointillist 
nature and as such can be very effective. 

The program is mouse-controlled and operates 
in graphics mode 15 with 256 colours colours 
being simultaneously available. Colours are 
chosen by moving the mouse pointer to the 
upper edge of the screen. A colour menu 
showing the 64 basic colours, each in 4 different 
tints is then displayed at the top of the screen and 
any one may be selected by moving the mouse to 
it and pressing <select>. Once the colour menu 


has been displayed it is possible to move the 
mouse pointer elsewhere on the screen and to 
pick up a colour which already exists in the 
picture, making it a simple matter to match 
colours. In addition, any pair of the 64 basic 
colours may be chosen to he displayed as an 
alternating pattern of pixels. According to the 
manual this gives a total of 4288 colours but it 
doesn't explain how this figure was arrived at. In 
practice a significant proportion of colour 
combinations will give a very similar 
appearance to one of die basic colours. 

Moving the mouse pointer to the bottom of the 
screen reveals a second menu which allows the 
spray size to be varied. A third menu, accessible 
from the right-hand side of the screen reveals 
more spray options and the possibility of saving 
and loading screens. The spray options include 
spray shape (circular or square), spray 
distribution (either even or more dense towards 
the centre of the circle or square) and the ability 
to display the spray outline as a guide. It is also 
possible to spray solid colour as well as dots, in 
order to draw solid areas or lines. A “rainbow” 
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spray of randomly coloured dots is also 
available for special effects. 

It would be easy but unfair and condemn this 
program for its lack of facilities. It sets out to be 
a simple program in which, as the manual states, 
“the focus of creativity is moved firmly onto the 
artist”. At just £5 it’s good value and well worth 
a try if you fancy producing pictures of this type. 

(MacSoft, 36 Alfred Street, Dunstable, Beds.) 

Mode Converter and Data 
Transfer System 

The disc contains two different pieces of utility 
software one of which, the mode converter, is 
probably unique for Archimedes users at this 
time. This allows BBC graphics screens to be 
converted to Archimedes format and for 
Archimedes screens to be converted to higher 
resolution modes or to modes with more 
colours. The program doesn’t make use of the 
mouse but is menu driven. 

When converting to a mode with more colours, 
either a set of default colours or new colours of 
the user’s choice may be selected. When a mode 
with 320 horizontal resolution is converted to 
higher resolution it may be either stretched to fill 
the screen or, left unstretched, will occupy just 
half the screen width. Modes with a horizontal 
resolution of 160, e.g. modes 2 and 5 are not 
catered for. 

Conversion of BBC screens to Archimedes 
format will, of course, first require that the BBC 
screen file be transferred to the Archimedes. 
This is one of the uses of the second piece of 
software on the disc. 

The Data transfer system is designed for serial 
transfer of files from BBC to Archimedes. The 
program is menu driven. Transfer rate is 19,200 
baud by default but other rates may be selected. 

Before files can be transferred from Beeb to 
Archimedes a data transmission program must 


be first be sent to the Beeb. One of the programs 
supplied performs this operation. It needs to be 
done only once as the transmission program can 
then be stored on a Beeb disc for future use. 

I expected to have some difficulty in testing this 
program as serial operations on my machine 
have taken a distinct turn for the worse since the 
arrival of Arthur 1.2, particularly at 19,200 
baud. I had previously been able to successfully 
use the Beebug transfer program at this rate with 
the 0.2 operating system. With Arthur 1.2 
installed there were so many errors in the 
received data as to make the transfer of long files 
impractical. The errors were detected by the 
checksum used but each block needed to he sent 
so many times that I had to resort to a slower rate. 
I was therefore surprised and pleased to find that 
this program worked much more successfully al 
the maximum data transfer rate. There were still 
a few data errors but these were detected and 
taken care of by the error-checking part of the 
software. The reason for the improved 
performance with an ailing serial port seems to 
be because the data is sent in smaller blocks. 
Both systems could be expected to work equally 
well with a properly operating port. 

One small thing I didn’t like about the program 
was the cryptic message “psb...” which occurred 
after a couple of menu selections. It looked as if 
it could be an obscure error message. It’s 
obvious once you know that it stands for “press 
space bar”. The manual docs makes it clear that 
the space bar should he pressed to proceed once 
the menu selection has been made, but it seems 
to me an unnecessary and potentially confusing 
use of a non-standard abbreviation. 

At £9.95, this disc represents very good value. 
The mode converter should be of particular use 
to ex Beeb users who wish to transfer screens to, 
for instance Artisan, for enhancement. 

(Science Frontiers (Software Dept), 7 Porthill 
Court, Aberdeen AB1 1DU.) 
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Artisan Support Disc 

This disc is designed to supplement Clares’ 
Artisan graphics package and apart from sixnew 
fonts, offers three main facilities. Like Artisan, 
die software makes good use of the WIMP 
environment* 

Firstly, there are six printer drivers for 
screendumps* These are: Integrex HQ, Integrex, 
Epson RX, Epson FX, Epson Colourl and 
Epson Colour2. The Epson colour dumps will 
work with Epson EX800, JX800 and Star LCiO 
printers* Colourl uses the standard Artisan 
Palette, Colour2 reads the palette of the current 
picture and adjusts its colours to match* The 
Integrex HQ dump is claimed to be able to 
handle all of the 4096 colours available on the 
Archimedes. 

Secondly there’s a pattern editor for the dot 
patterns used by the monochrome printer 
dumps* This makes it possible to design a set of 
patterns which match the grey scale of the 
palette used in a particular picture* The patterns 
are edited on an 8 x 8 grid and can be saved to 
disc for future use. 

Finally, the d ise contains a picture display utility 
in the form of a relocatable module* Its function 
is to allow selections of Artisan screens to be 
displayed in a predetermined sequence, with one 
screen merging into another using what the 
manual calls "fade’ patterns but which, in 
television terms, would more usually be called 
4 wipe’ patterns. The module has eight in-built 
patterns and others can be created by the user. 

The module responds to * commands such as: 

^DISPLAY <filename> <effect> 
making it a simple matter to design a display 
sequence in the form of a short BASIC program. 
The display time of each picture and the rate of 
fade can he set as required. If a transition is made 
between two pictures which have been drawn 
with different palettes then the palette change is 


automatically made at the end of the transition. 
This can tend to cause a slight visual hiccup in an 
otherwise smooth transition but could be 
minimised by arranging the picture sequence so 
that there are as few palette changes as possible 
and so that when changes do occur, a minimum 
number of colours are re-defined 
simultaneously. 

The Support disc contains a facility to generate 
a demonstration disc which applies the fades 
supplied to four sample pictures. Design of your 
own fades is made possible by the inclusion of a 
fade editor. The editor displays a 1280 square 
grid which represents one quarter of the screen* 
To design a wipe, you click on successive 
squares in the sequence in which you want the 
picture transition to occur. When the fade is 
activated this pattern is mirrored in the other 
three quarters of the screen, with the advantage 
of making the patterns quicker to design and 
requiring less memory for storage. There is, 
however, the disadvantage that only patterns 
with four-fold symmetry can be produced. For 
instance, it is not possible to generate a simple 
horizontal or vertical wipe. New patterns maybe 
created from scratch or existing patterns may be 
modified* During editing, the effect of the fade 
can be previewed on a small inset screen. 

Like Artisan, this software has been 
thoughtfully designed and is a pleasure to use. 
Its facilities will be welcomed by many existing 
Artisan users and should provide extra incentive 
to those who haven’t yet invested. The price is 
£19.95* (Available from Archive for £18*) £| 


Desktop G ames - £5 *95 MaxG ammon - £9.50 


Gem Electronics, 

17, Tandragee Road, 

Portadown, 

Craigavon. 

B T62 3BQ 


Maximum, 

44 Manor Road, 

Wokingham, 

Berkshire. 

RG11 4AR. 


46 


Archive May 1988 








:.,438^86 . £ : _K. 


GamesforyourDesktop 


Matthew Treagus 

Desktop Games and Maxgammon 

Is this where RISC technology has brought us I ask 
myself. The fastest desktop micro in the world and 
it is playing games. Never the less T can not deny 
avidly booting the disc. The first thing I noticed was 
the distinct lack of little aliens to destroy (thank 
goodness). Both games attach themselves to the 
Accessories Bar of the desktop and can be selected 
along with ail the other bits and pieces such as the 
diary and calculator. 


MaxGammon 

by Maximum 

Maxgammon is a more ‘mature’ game. As the name 
suggests, it is a desktop version of the popular 
BackGammon. Again the package installs itself on 
the desktop accessory bar. All the documentation is 
contained on disc and the instructions supplied with 
the disk are restricted to a 9cm square piece of card 
(amazing). The on-disk instructions include the use 
of the program and the rules of backgammon. 


Desktop Games 

by GEM Electronics 

The games are installed simply by booting the disc. 
The desktop appears and the accessories are loaded. 
The first thing you notice is the accessory bar has 
changed colour-now a “subtle pink” (urghh!) and 
three new icons have been added - a star, 
headphones and games. These are selected in the 
usual way. 

The star allows you to enter the OS Star commands, 
(A facility missing from the built in desktop.) 

The headphones allow you to vary the sound overall 
sound output level of the Archimedes. 

The games icon brings up the Logic Games menu 
consisting of ‘crak code*, ‘sliders’ and ‘leapfrog’. 

Crakcode is a version of Mastermind with all the 
usual options such as Mix Colours, No Gaps, 
Restart and Answer. 


The program includes a computer opponent and a 
replay system that allows you to move backwards 
and forwards through the game. The controls are 
simple and a message window gives details of 
mistakes made. You can select three different sizes 
of board and the colour you play. Indeed the 
computer can be selected to play both colours. The 
computer is quite a good player (I have not yet 
beaten it. How embarrassing!) and there is 
apparently no method of restricting its ability. Other 
desktop utilities, although still usable, can be 
slowed considerably if the computer is playing. 
Also Backgammon pieces occasionally appear over 
other windows with they overlap. 

It is good to see WIMPs being used to advantage, 
allowing the rules and the game itself to be on screen 
at once thereby reducing the amount of primed 
documentation. (After ail isn't that what the WIMP 
environment was originally designed for?) 


Sliders is a sliding block puzzle game. The puzzles 
can be loaded from disk and there is a utility that 
allows you to create your own puzzles from a 
standard MODE! 2 *SCREENSAVEd screen (e.g. 
Artisan pictures) or from ARMPaint screens. The 
puzzle can be of six different levels: either 4*4 or 
5 *5 in size and then easy, medium or hard, the latter 
determining the number of shuffles to be done on it. 

Leapfrog is the popular solitaire game in three 
different versions: normal, blue peg or surround. 

The documentation is good and explains all that is 
necessary although it only cover three A4 sides. 
There is also a “ReadMe” notepad file on the disc. 


The Desktop Games are ini dally good but the 
novelty soon goes, although less so on young 
children who will sit happily for hours. I know of a 
ten year old who spends hours taking ARMPaint 
Pictures and making them into sliding puzzles, 
Maxgammon however is more attractive to the 
older user and it is more likely to become a 
frequently used piece of software. 

It is nice to see good quality software being sold at 
a sensible price. I liked both of these packages very 
much and both come highly recommended. Q 
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Fitting the Acorn Hard Disc Upgrade 


Alan Glover 


The 20 Mb Hard disc upgrade for the 305/310 is 
designed to be fitted to a machine: 

(a) without a second disc drive fitted 

(b) with a backplane and fan fitted 

(c) with a podule slot free (preferably the 
lower one) 

The intention is that the user purchases it and 
then takes it and the computer to a dealer for 
fitting (though of course the dealer might also 
supply the upgrade). 

The upgrade is quite easy and straightforward to 
do. However three things should be borne in 
mind: 

* Acorn stress the need to handle the drive 
very carefully to avoid damage by vibration 
and/or static electricity. 

* Fitting the upgrade yourself means that you 
will not get a 'loaded" disc —i.e. the disc will 
be formatted and usable, but will have no 
utility programs on it. (Dealers have been 
supplied with hard disc formatting and soak 
test programs*) 

* Neither Archive, nor the author, can accept 
any liability for the consequences of 
following the instructions in this article. The 
details are provided in good faith, but must 
assume that the user is able to perform the 
tasks detailed safely (from their own point of 
view and that of their computed). 

You have been warned.*, now down to the 
serious stuff. 

Fitting Instructions 

(For brevity I have not detailed the minutiae, e*g. 
which screws to undo, but if you feel that you 
need this sort of information! would suggest that 


you do not consider attempting the upgrade 
anyway.) 

1) Remove the mains lead and all other leads 
from the computer. 

2) The backplane and fan must be (or have 
been) fitted first* The instructions that come with 
the backplane are well written and adequate. The 
only niggle is that the arrows supposed to be on 
the fan for orientation were not there. I found the 
simplest way around the problem was to fit the 
fan, then (very carefully!) feel which way the 
colder air was being blown. It should be going 
into the computer. The fan is essential for the use 
of the hard disc* Don’t put the lid back on* 

3) Take off the front panel of the computer. Be 
careful not to stretch the lead on the Power LED. 
Remove the ‘Archimedes' label and carefully 
stick on the new one with the second aperture 
labelled H/Disc. Fit the new LED supplied into 
die vacant slot below the power LED (behind the 
label H/Disc). 

4) Fix the hard disc drive in place* It goes with 
die edge connectors at the bottom of the unit, 
facing the rear of the machine. It will be easier if 
you attach the ribbon cables now rather than 
after it ls mounted (the cables go upwards). It has 
to be screwed in two places to the disc drive 
mounting plate. 

5) Connect the power lead to the connector on 
the lead from the hard disc. It will only fit one 
way around. 

6) Fit the hard disc podule* In some machines, 
A com warn, the spacers supplied with the kit 
will be needed to avoid problems due to the 
podule appearing to be slightly longer than die 
space available* The podule can fit in either slot, 
but I think the bottom is belter. 
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Installing the Hard Disk 


7) Once it is in place fit the half length blanking 
panel supplied, using the "T" shaped piece of 
metal to join the plate and the plate on the back 
of the hard disc podule. 

8) Connect the leads to the podule. There are 
three in all, which are all of different sizes and 
are polarized. They are the front panel LED and 
two ribbon cables to the hard disc, 

9) Refit the grey front panel to the rest of the 
front panel and carefully fit it back in position. 
Extreme care is needed to get the eject button of 
the disc drive through its slot and moving freely. 
To avoid frustration later, you should check that 
you can insert and remove discs with no friction 
before you put the lid back on. If there is any 
friction just slacken the two side screws and 
gently move the front assembly backwards or 
forwards as appropriate, and tighten it when the 
right position is found. 

10) Check for possible hazards. In particular, 
make sure that the power connector for the 
second disc drive is safely away from any 
metalwork. Then refit the lid and connect the 
computer back to the mains and its peripherals. 

Documentation 

The documentation with the hard disc drive 
consists of: 

* A Podule Release note explaining how A rthur 
0.2, 0.3 and 1.2 relate to podules. (Basically it 
says ‘not at all 5 , 'from dise\ and ‘from ROM 5 
respectively.) 

* A parts list for the upgrade. 

* A warning notice about electrostatic 
precautions when handling the drive. 

* An explanatory leaflet which introduces the 
^CONFIGURE settings needed to integrate the 
drive, and parameters to use with WFORM; the 
formatting program which would be put on the 
disc by a dealer performing the upgrade. 


You must ^CONFIGURE HARD DISCS 1 to 
tell Arthur that the drive is present You may also 
want to ^CONFIGURE DRIVE 4 to change 
your default drive to the hard disc. 

Using the Hard Disc 

Owners of BBC winchesters will have to get 
used to one (annoying) feature .. the hard disc 
drive number is always 4. On the BBC the floppy 
drives were normally 0/1, but automatically 
moved up to 4/5 when a hard disc was fitted 
which allowed the hard disc to be numbered 0/1. 
This was useful for poorly written software 
which made the assumption that it was running 
on a particular drive. 

In use, the drive is quiet. Indeed the drive and fan 
together make far less noise than many BBC 
hard disc drives. 

However the user must be more careful with 
handling a hard disc system. Hard discs are 
liable to damage from vibration and sudden 
shocks. To guard against them the disc head 
should always be ( parked 5 just before switching 
off the computer, (i.e. the heads must be drawn 
back off the magnetic surfaces of the disc.) The 
command to do this is *BYE. Also, care should 
be taken not nudge the drive while it is on, and 
especially when the access light is on. 

Use with MS-DOS 

Users of the PC Emulator may be misled by an 
omission in the details for running the system on 
a Hard disc. When booting MS-DOS you must 
not have a disc in drive A if you want it to boot 
to drive C (the partition on the hard disc). If a disc 
is in drive A that will be mounted in preference. 
Note Drive A = {ADFS drive 0), C = (ADFS 
drive 4) 0 
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Rob Hindle 


The program BASES whichforms the substance 
of this article demonstrates the Operating 
system call OS^ReadUnsigned which converts 
a number from any number system (between 
base 2 and base 36} to a decimal value* 
Unfortunately, there is no corresponding 
operating system call to do the reverse - my 
BASIC routine PROC ConvertToBase does 
this. This procedure is separated out into a 
library file so that it can easily be used in 
programs other than BASES. 

Using the program should present no problems. 
The inputs are prompted for and are validated. 
You enter a number to represent the number 
system base in which the input is to be entered 
and another to request the base for the output. If 
you just press <retum> these will retain their 
previous value (10 at the start of the program)* 
Then enter a number to be converted. If you 
selected base 2 for input, the entry must be in 
binary and you will not be able to press anything 
but 0 or L 

In addition to the output base requested, the 
results are always displayed in bases 2,10 and 16 
as these are the most useful. For bases above 10, 
the digits are represented by letters as when 
using Hex, but going right down to using Z as the 
base 36 representation of 35. (Hence the limit of 
base 36-10 (0 to 9) + 26 (A to Z).) 

The top bit of a 32 bit number may be used as a 
sign bit, if its value is 1 the result is negative. 
This program only treats it as a sign when 
displaying the requested base, Le. if you set 
input and output bases to 16 and enter the hex 
number FFFFFFFF, it will be shown as 
FFFFFFFF in the HEX RESULT field but as 4 
in the RESULT field. 


The bulk of the program is concerned with 
getting input, validating it and displaying the 
results. The bit that does the conversion to a 
number system base is PROCConvertToBase 
which works as follows: 

(Reminder: DIV gives an integer result; it 
discards any fractional part of the result of a 
division . MOD gives the remainder from a DIV.) 

A decimal number is Divided by the base to 
which it is to be converted and the remainder 
(found by using MOD) is the least significant 
digit of the result. 

This digit is Still represented as an integer which, 
depending on the base in use, may be larger than 
9. In this ease, it needs translating to a letter 
(10=A, 15=F etc). The result of the DIV above 
is now itself divided by the base and die 
remainder is the “tens” digit of the answer. 
Repeat in this way until the result of the DIV is 
less than the base, this result is then made the 
most significant digit of the answer. 

10 REM>$,BASES 

20 REM W R Hindle, March 1987 
30 ON ERROR PROCError 
40 LIBRARY N $.BaseLib" 

50 MODE12 

60 DIM Buffer 32 i TxtFtr%-Buffer 
70 CR$=CHR$ (SOD) :Result$="" 

80 01dFromBase%=l0:OldToBase%=10 
90 PRINTTAB (20, 1) " Number system 

translation utility* 1 

100 COLOUR 1 

110 PRINTTAB(0,4}"Translate from 

base (2-36)" 

120 PRINTTAB(40,4)"To base £2-36)" 
130 PRINTTAB(0,6)"Number to 

translate" 

140 COLOUR 2 

150 PRINTTAB (0,8) "Result " 

160 PRINTTAB(0,10)"Result in Decimal" 
170 PRINTTAB(0,12)"Result in Hex" 
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Base Conversion Program 


180 PRINTTAB(0, 14)"Result in Binary” 

190 COLOUR 7 

200 REPEAT 

210 PRQCGetInputs 

220 PROCCalculate 

230 PRQCConvertToBase(ToBase%, 

Decimal^,Result $) 
240 PROCDisplayResults 

250 UNTIL FALSE 
260 END 
270 

280 DEFPROCGetInputs 
290 Number$="" 

300 REPEAT 

310 INPUTTAB(28,4}FromBasel 
320 UNTIL (FromBase%>l AND 

FromBase%<37) OR FromBase%-0 
330 IF FromBase%=0 THEN FromBase% 

-01dFromBase% ELSE OldFromBase% 
=FromBase% 

340 PRINTTAB(28,4)STR?(01dFromBase%) 

, it ii 
r 

350 REPEAT 

360 lNPUTTAB(55,4)ToBase% 

370 until (ToBase%>=2 AND ToBase% 

<37) OR ToBase%=0 
360 IF ToBase%=0 THEN ToBase% 

=01dToBase% ELSE oidToBase% 

=ToBase% 

390 PRINTTAB<55,4)STR$(OldToBasefc) 

> >i »♦ 
I 

4 00 PRINTTAB(20,6)STRING?(32, " ") 

410 PRINTTAB £20,6) 

420 REPEAT 
430 REPEAT 

440 SYS "GS_Byte",202,0 

450 CH$—GETS 

460 CH%-ASC(CH$) 

470 IF CH%>=48 AND CH%<=57 THEN 

CH%-=48 

480 IF CH%>=65 AND CH%<=90 THEN 

CH%-~55 

4 90 UNTIL CH%<FroTnBase% OR 

(CH$“CR$ AND LEN(Number?)>0) 
500 IF CH$OCR$ THEN Number?+=CH? 

:PRINTCH?; 

510 UNTIL CH?=CK$ 

520 ENDPROC 
530 

54 0 DEFPROCCalculat e 
550 $TxtPtr%=Number? 


5 60 SYS "OSReadUnsigned”, FromBase% 

,TxtPtr% TO ,,Decimal% 
570 Decimal$=STR?(Decimal%) 

580 Hex?=STR?~(Decimal*) 

5 90 Binary?— 11 
600 Dec%=Decimal% 

610 FOR X%=0 TO 27 STEP 9 

620 FOR Y%=0 TO 7 

630 Binary$=STR$(Dee% AND 

&0Q00QL)+Binary$ 
64 0 Dec%=Dec%»i 

650 NEXT 

660 Binary?=" "^Binary? 

670 NEXT 
680 ENDPROC 
960 

970 DEFPROCDisplayResultS 

980 PRINTTAB£20,8)STRINGS(32, " ") 

990 PRINTTAB(20,10)STRING?(12," ") 
1000 PRINTTAB £20,12) STRING? (10, n lT ) 
1010 PRINTTAB (19, 14) STRINGS (35,'■ “ ) 
1020 PRINTTAB (20,8) Result? 

1030 PRINTTAB (20,10) Decimal? 

1040 PRINTTAB(20,12)Hex? 

1050 PRINTTAB(19,14)Binary? 

1060 ENDPROC 
1070 

1080 DEFPROCError 

1090 ON ERROR REPORT:FRINTERR;STOP 
1100 CASE ERR OF 

1110 WHEN 364: PRINTTAB (0,18) '"You 
entered a number too big to 
store in 32 bits" 
1120 PRINT"Press any key to 

continue" 

1130 IFGET 
1140 RUN 

1150 WHEN 17 :PRINTTAB (0,20) ,r " :END 
1160 OTHERWISE PRINTTAB(0,18} 

"Error ";ERR;” at line ";ERL 
1170 REPORT 
1180 PRINT 
1190 END 
1200 ENDCASE 
1210 END 
1220 ENDPROC 

10 REM >$. BaseLib 

20 REM W R Kindle, March 1987 
30 REM Converts a decimal number to 
a string representation of that 
number in any base from 2 to 36. 
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Base Conversion Program 


35 REM Assumes ToBase% has been 

validated to range 2-36. 

40 : 

50 DEFPROCConvertToBase (ToBase% 

f Decimal %,return Result?) 
60 Result$="" 

7 0 IF Decimal%<0 THEN Sign$="- Tr 

ELSE Sign$= ir,T 
SO 

90 REPEAT 

100 Resuit%=Decimai% Div ToBase% 

110 

120 REM now get the remainder 

130 Remainder%=Decimai% MOD ToBase% 

140 

150 REM anticipate next iteration 
160 Decimal%=Result% 

170 

180 REM make sure remainder is 

positive 

190 Remainder%=ABS(Remainder%) 

200 

210 REM if result will be numeric 

0-9 

220 IF Remainder%>=0 AND Remainder^ 
<=9 THEN Remainder%+=4 8 

230 

240 REM if result will be a letter 
250 IF Remainder%>=10 AND 

Remainder%<=36 THEN 
Remainder%+=55 

260 

270 REM convert numeric digit 

value to number or letter and 
add to right of result 
280 Result$=CHR$(Remainder!) + 

Result? 

290 UNTIL ABS(Result%)<ToBase% 

300 

310 Result%=AB5(Result 

320 IF Result£>=0 AND Result%<=9 

THEN Result%+=48 

330 IF Result%>=!0 AND Result%<=36 

THEN Result%+=55 

340 

350 REM append most significant 

digit if not zero 
360 IF Result%>=49 THEN Result? 

—CHR$(Result%)+Result$ 
370 Result$=Sign$+ResultS 
380 ENDPROC g] 



If you would like to insert small ad’s, free of charge, 
send them to us. Each should be less than 30 (thirty) 
words long and should relate to Archimedes and 
associated devices, i.e. we don’t want adverts for 
second-hand BBC’s and Masters! 

ARCHIMEDES 310. Some software. New in 
February. £625. Phone Bedford (0234) 56139. 

Game testing reflexes & skill; QGAZER - 256 
colour, 50 frames/second smooth scrolling arcade 
action! 100% machine code. £8.95 cheque/P.O. to 
J. Rockey, Brecklands, Broad Oak, Shrewsbury, 
SY4 3AH. S.A.E for information. 

One set of RAM up-grade chips for sale, suitable 
for a 305 that has the chip sockets fitted. Mine 
hasn’t! £50. Phone Peter Tuttle on Chesterfield 
70730 after 6 p.m. 


Computer Concepts’ ROM 
Podules 

Computer Concepts’ ROM Podules are now 
available from stock! We have them in stock, 
both with and without battery back-up. 

(28/4/88) 
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ABACUS Training 
ACE Computing 
A PL Software. 
Brainsoft 


29 Okus Grove, Upper Stratton, Swindon, Wilis, SN2 6QA. 
27 Victoria Road, Cambridge, CB4 3BW, (0223 - 322559) 
7 Ascendale, Deeping St James, Peterborough, PE6 8NZ. 

22 Baker Street, London, WIM 1 DR (01 -486- 0321) 


CCD Computer Services 71 Marlborough Park Avenue, Sidcup, Kent, DA 15 9DL, (01 -302- 
5427) 


CJE Micros 78 Brighton Road, Worthing, W Sussex, BN 11 2EN. (0903 - 213361) 

Clares Micro Supplies 98 Middlewich Road, Rudheath, Northwich, Cheshire, CW9 7DA + 
(0606-48511) 

Colton Software 149-151 St Neots Road, Hardwick, Cambridge, CB37QJ. (0954-211472) 
Computer Concepts Gaddesden Place, Hemel Hempstead, Herts, IIP2 6EX. (0442 - 63933) 
Centex Computing 15 Woodlands Close, Cople, Bedford, MK44 3UE. (02303-347) 
Dudley Micro Services 30 Hadley Close, Netherton, Dudley, DY2 9JX. (0384-633142) 


EMR Ltd 14 Mount Close, Wickford, Essex, SSI 1 8HG* (0702 - 335747) 

Pairhursi Instruments Dean Court, Woodford Road, Wilms low, SK9 2LT. (0625 - 525 - 694} 
GEM Electronics 17 Tandragee Road, Portadown, Craigavon, RT62 3BQ. 

HopeSoft Hope Cottage, Winterbourne, Newbury, Berks, RG16 8BB. (0635 - 

248472) 


NS Software 56, Hendrefolian Avenue, Sketty, Swansea, SA2 7NB, (0792-204519) 

LTS Ltd Haydon House, Alcester Road, Studley, Warks, B80 7AN, 

(0386-792617) 

MacSoft 36 Alfred Street, Dunstable, Beds, {0582 - 699 - 483) 

Magenta Research Ltd Amp House, Dingwall Road, Croydon, CR0 9XA. (01 - 681 - 7179) 
Maximum 44 Manor Road, Wokingham, Berks, RG11 4AR, 

Minerva Systems 69 Sidwcll Street, Exeter, EX4 6PH. (0392- 37756) 

Mitre Software 26 Creechureh Lane, London, EC3A 5BA, (01 - 283 - 4646) 

Northern Educational Software 16 Dawson Lane, Rierley, Bradford, BD4 6HN. 

Pineapple Software 39 Brownlea Gardens, Seven Kings, Ilford, Essex, IG3 9NL, 

(01 - 599 - 1476) 

RESOURCE Exeter Road, Doncaster, DN2 4PY. (0302 - 63800/63784) 

Solidisk Technology Ltd 17 Sweyne Avenue, Southend-on-Sea, Essex, SS2 6JQ. (0702-354674) 


Norwich Computer Services 18 Mile End Road, Norwich, NR4 7QY. (0603 - 507057) 
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Subscription Magazine and Support Group for Archimedes users 


Archive Magazine contains: 

• News 

• Reviews 

• Hints and Tips - a major feature 

• Articles for Beginners 

• The Latest Technical Information 

• Program Listings 

• Free Small Ad's Section 

■ HELP - Requested and Offered 

• Contact Box - to help you form 
common interest groups 

Eureka! - Bulletin Board 

0603-250689 on 1200/75 or 300/300 

• Very Latest News 

• Down-load Software 

• Mailbox Facilities 

• Chat line 


Technical Help Service (£8 / year) 

A telephone hot-line service for 
immediate help with your technical 
problems. Any member can send 
written enquiries, but for a fast 
response use the THS! 

Members’ Discount: 7.5% off 
software from Computer Concepts, 
Minerva Systems and Clares Micros 
Supplies purchased through Norwich 
Computer Services. 

Subscription: 12 issues £12,50 (UK) 
Europe £18, Middle East £22, 
America / Africa £25, Elsewhere £27. 
Technical Help Service £8 


N.B. All earlier issues have now been re-printed — you may back-date your subscription 
as far as issue 1 (October 1987) - to take advantage of this huge bank of information. 
Archimedes is a trademark of Acorn Computers Ltd. 


* Please send copies of Archive magazine for one year starting from 

Volume 1 Issue 

* Please enrol me on the Technical Help Service for one year. (£8) 

I enclose a cheque for £ _ payable to "Norwich Computer Services", 

Name:__ 

Address:_ .__ 


Postcode: 


Norwich Computer Services, 18 Mile End Road, Norwich, NR4 7QY 



















